--- a/NewLauncher.st	Sat Dec 08 01:45:55 2001 +0100
+++ b/NewLauncher.st	Sat Dec 08 02:12:33 2001 +0100
@@ -3980,12 +3980,14 @@
     "turn on/off active help"
 
     ActiveHelp notNil ifTrue:[
-	self activeHelp value:aBoolean.
-	aBoolean ifTrue:[
-	    ActiveHelp start
-	] ifFalse:[
-	    ActiveHelp stop
-	]
+        self activeHelp value:aBoolean.
+        aBoolean ifTrue:[
+            ActiveHelp start.
+            FlyByHelp start.
+        ] ifFalse:[
+            ActiveHelp stop.
+            FlyByHelp stop.
+        ].
     ].
 
     "Modified: / 18.8.1998 / 16:06:27 / cg"
@@ -4115,5 +4117,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.241 2001-12-08 00:42:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.242 2001-12-08 01:12:33 cg Exp $'
 ! !