--- a/ActiveHelp.st	Fri Jun 07 10:00:35 1996 +0200
+++ b/ActiveHelp.st	Fri Jun 07 10:02:31 1996 +0200
@@ -428,7 +428,7 @@
                 p terminate.
             ].
             showProcess := [
-                    (Delay forSeconds:DelayTime) wait.
+                    Delay waitForSeconds:DelayTime.
                     showProcess := nil.
                     self showHelp:text for:aView
             ] forkAt:(Processor userSchedulingPriority + 1).
@@ -437,7 +437,7 @@
         ]
     ].
 
-    "Modified: 27.4.1996 / 15:12:03 / cg"
+    "Modified: 7.6.1996 / 10:02:19 / cg"
 ! !
 
 !ActiveHelp methodsFor:'show / hide help'!
@@ -527,6 +527,6 @@
 !ActiveHelp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.14 1996-06-07 08:00:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ActiveHelp.st,v 1.15 1996-06-07 08:02:31 cg Exp $'
 ! !
 ActiveHelp initialize!