--- a/ActiveHelp.st	Fri Jan 07 13:33:01 2000 +0100
+++ b/ActiveHelp.st	Wed Jan 12 19:14:50 2000 +0100
@@ -528,12 +528,14 @@
 
     |whereOnScreen|
 
-    whereOnScreen := aView graphicsDevice pointerPosition.
+    currentFrame notNil ifTrue:[
+        whereOnScreen := aView graphicsDevice pointerPosition.
 
-    (currentFrame notNil
-    and:[(currentFrame insetBy:1@1) containsPoint:whereOnScreen]) ifFalse:[
-        self hideHelp.
-        currentView := nil
+        (currentFrame notNil
+        and:[(currentFrame insetBy:1@1) containsPoint:whereOnScreen]) ifFalse:[
+            self hideHelp.
+            currentView := nil
+        ].
     ].
 
     "Modified: 28.5.1996 / 20:18:28 / cg"
@@ -790,6 +792,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.40 1999-08-02 08:59:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.41 2000-01-12 18:14:50 cg Exp $'
 ! !
 ActiveHelp initialize!