*** dynhelp.tcl.~1.1~	Tue Mar 12 13:57:32 2002
--- dynhelp.tcl	Tue Mar 12 13:58:46 2002
***************
*** 325,330 ****
--- 325,332 ----
          pack $_top.label -side left
          update idletasks
  
+       if {![winfo exists $_top]} {return}
+ 
          set  scrwidth  [winfo vrootwidth  .]
          set  scrheight [winfo vrootheight .]
          set  width     [winfo reqwidth  $_top]
***************
*** 341,346 ****
--- 343,349 ----
  
          wm geometry  $_top "+$x+$y"
          update idletasks
+       if {![winfo exists $_top]} {return}
          wm deiconify $_top
      }
  }