--- a/ActiveHelp.st	Sat Dec 08 02:25:31 2001 +0100
+++ b/ActiveHelp.st	Sat Dec 08 02:25:43 2001 +0100
@@ -286,6 +286,7 @@
 
     "
      ActiveHelp stop
+     FlyByHelp stop
     "
 
     "Modified: / 26.10.1997 / 23:18:58 / cg"
@@ -336,7 +337,6 @@
     "handle motion events - if the mousepointer left the 
      previous helped view, hide the help"
 
-'m2' printCR.
     Object errorSignal handle:[:ex |
         ex description infoPrintCR.
         ex suspendedContext fullPrintAll.
@@ -374,14 +374,12 @@
 pointerEnter:state x:x y:y view:aView
     "handle pointer entering a view; setup timeOut to show help"
 
-'e' printCR.
     ^ self buttonMotion:state x:x y:y view:aView
 !
 
 pointerLeave:state view:view
     "handle pointer leaving a view; hide help text"
 
-'l2' printCR.
     self hideHelpIgnoringErrors.
     ^ false
 ! !
@@ -619,7 +617,9 @@
 
     self hideHelp.
 
-    applicationsOrTopViewsWithHelp remove:anApp ifAbsent:nil.
+    applicationsOrTopViewsWithHelp isNil ifFalse:[
+        applicationsOrTopViewsWithHelp remove:anApp ifAbsent:nil.
+    ].
     listeningForAll == true ifFalse:[
         applicationsOrTopViewsWithHelp size == 0 ifTrue:[
             self unlisten.
@@ -633,6 +633,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.44 2001-12-08 01:11:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.45 2001-12-08 01:25:43 cg Exp $'
 ! !
 ActiveHelp initialize!