--- dialog.tcl.old	2005-06-08 01:42:19.000000000 +0200
+++ dialog.tcl	2005-06-08 01:41:46.000000000 +0200
@@ -168,6 +168,8 @@
     wm geom $w +$x+$y
     wm deiconify $w
 
+    tkwait visibility $w
+
     # 7. Set a grab and claim the focus too.
 
     set oldFocus [focus]
