--- a/ActiveHelp.st	Mon Nov 02 11:34:35 2009 +0100
+++ b/ActiveHelp.st	Mon Nov 02 13:59:30 2009 +0100
@@ -374,32 +374,34 @@
     "handle motion events - if the mousepointer left the 
      previous helped view, hide the help"
 
+    (self interestedIn:aView) ifFalse:[^ self].
+
     Error handle:[:ex |
+        '---------------------' infoPrintCR.
         ex description infoPrintCR.
         ex suspendedContext fullPrintAll.
         ex return
     ] do:[
         |sensor|
 
-        (self interestedIn:aView) ifTrue:[
-            self stopHelpDisplayProcess.
-            self hideIfPointerLeft:aView.
+"/        self stopHelpDisplayProcess.
+        self hideIfPointerLeft:aView.
 
-            (self interestedIn:aView) ifFalse:[
-                ^ self
-            ].
+        "/ check again, in case the stop/hide changed something...
+        (self interestedIn:aView) ifFalse:[
+            ^ self
+        ].
 
-            "/ if there is a sensor, let the view do it itself (in its process)
-            sensor := aView sensor.
-            sensor notNil ifTrue:[
-              sensor flushEventsFor:self withType:#initiateHelpFor:at:.
-              sensor 
-                pushUserEvent:#initiateHelpFor:at: for:self 
-                withArguments:(Array with:aView with:(x @ y)).
-            ] ifFalse:[
-                self initiateHelpFor:aView at:(x @ y).
-            ]
-        ].
+        "/ if there is a sensor, let the view do it itself (in its process)
+        sensor := aView sensor.
+        sensor notNil ifTrue:[
+          sensor flushEventsFor:self withType:#initiateHelpFor:at:.
+          sensor 
+            pushUserEvent:#initiateHelpFor:at: for:self 
+            withArguments:(Array with:aView with:(x @ y)).
+        ] ifFalse:[
+            self initiateHelpFor:aView at:(x @ y).
+        ]
     ].
 !
 
@@ -721,7 +723,11 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.63 2009-06-06 08:55:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.64 2009-11-02 12:59:30 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.64 2009-11-02 12:59:30 cg Exp $'
 ! !
 
 ActiveHelp initialize!