--- a/NewLauncher.st	Mon Feb 04 10:33:34 2008 +0100
+++ b/NewLauncher.st	Mon Feb 04 13:23:34 2008 +0100
@@ -4240,7 +4240,7 @@
         helpIsOn := PluggableAdaptor new
                         getBlock:[:m | UserPreferences current flyByHelpActive] 
                         putBlock:[:m :newValue | UserPreferences current flyByHelpActive:newValue] 
-                        updateBlock:nil.
+                        updateBlock:[:m :aspect :param | true].
         "/ helpIsOn addDependent:self.
     ].
     ^ helpIsOn
@@ -4365,5 +4365,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.360 2008-01-25 09:59:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.361 2008-02-04 12:23:34 cg Exp $'
 ! !