diff --git a/VERSION b/VERSION
index e77e1a74..a72e3afe 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-8.3.384
+8.3.385
diff --git a/tcltk/toolkit.tcl b/tcltk/toolkit.tcl
index 679bb3df..fcab3601 100644
--- a/tcltk/toolkit.tcl
+++ b/tcltk/toolkit.tcl
@@ -1443,7 +1443,9 @@ proc magic::gencell_dialog {instname gencell_type library parameters} {
    raise .params
 
    # Wait for window to become visible to set the scroll region
-   tkwait visibility .params.body.area
+   if {[catch {winfo children .params.body.area}]} {
+      tkwait visibility .params.body.area
+   }
    .params.body.area config -scrollregion [.params.body.area bbox all]
 }