--- a/ActiveHelp.st	Sat Jun 28 14:46:35 1997 +0200
+++ b/ActiveHelp.st	Sat Jun 28 14:49:18 1997 +0200
@@ -502,19 +502,19 @@
         ^ self
     ].
 
-    "/ give the views application a chance
-    "/ to decide where to show the help text
-    "/ (i.e. in its own information area)
+    text notNil ifTrue:[
+        "/ give the views application a chance
+        "/ to decide where to show the help text
+        "/ (i.e. in its own information area)
 
-    top := aView topView.
-    (app := aView application) notNil ifTrue:[
-        (app showHelp:text for:aView) ifTrue:[
-            lastHelpText := text.
-            ^ self
-        ]
-    ].
+        top := aView topView.
+        (app := aView application) notNil ifTrue:[
+            (app showHelp:text for:aView) ifTrue:[
+                lastHelpText := text.
+                ^ self
+            ]
+        ].
 
-    text notNil ifTrue:[
         (showItNow not and:[DelayTime > 0]) ifTrue:[
             self stopHelpDisplayProcess.
             showProcess := [
@@ -537,8 +537,8 @@
         ]
     "
 
-    "Modified: 28.6.1997 / 14:45:06 / cg"
     "Created: 28.6.1997 / 14:45:41 / cg"
+    "Modified: 28.6.1997 / 14:49:05 / cg"
 !
 
 showHelp:aHelpText for:view
@@ -607,6 +607,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.25 1997-06-28 12:46:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.26 1997-06-28 12:49:18 cg Exp $'
 ! !
 ActiveHelp initialize!