Index: modules/tooltip/tooltip.tcl
==================================================================
--- modules/tooltip/tooltip.tcl
+++ modules/tooltip/tooltip.tcl
@@ -750,10 +750,11 @@
     variable G
     # re-enable the 'Enter' binding. it is saved by `enableTag`, and cleared by `tagTip`.
     $w tag bind $tag <Enter> $G(enterBinding,$w,$tag)
     
     # have we really left ? if the cursor is _in_ the tooltip we haven't.
+    createToplevel
     lassign [split [wm geometry $G(TOPLEVEL)] "x+"] w h xT yT
     lassign [winfo pointerxy "."] x y
     
     if {($x >= $xT) && ($x <= ($xT + $w)) &&
 	($y >= $yT) && ($y <= ($yT + $h))} return

