--- a/Launcher.st	Mon Feb 26 22:53:32 1996 +0100
+++ b/Launcher.st	Mon Feb 26 23:43:38 1996 +0100
@@ -1523,33 +1523,36 @@
 !NewLauncher methodsFor:'help'!
 
 helpTextFor:aComponent
-    |sel s|
+    |sel s buttons|
 
     aComponent == transcript ifTrue:[
-	s := 'TRANSCRIPT_HELP'
+        s := 'TRANSCRIPT_HELP'
     ].
 
     aComponent == infoView ifTrue:[
-	s := 'INFOVIEW_HELP'
+        s := 'INFOVIEW_HELP'
     ].
 
-    (buttonPanel subViews includes:aComponent) ifTrue:[
-	"kludge: look for its change selector"
-	sel := aComponent changeMessage.
-	sel == #startSystemBrowser ifTrue:[
-	    s := 'SBROWSER_BUTTON_HELP'
-	].
-	sel == #startFileBrowser ifTrue:[
-	    s := 'FBROWSER_BUTTON_HELP'
-	].
-	sel == #startChangesBrowser ifTrue:[
-	    s := 'CBROWSER_BUTTON_HELP'
-	].
+    buttons := buttonPanel subViews.
+    (buttons notNil and:[buttons includes:aComponent]) ifTrue:[
+        "kludge: look for its change selector"
+        sel := aComponent changeMessage.
+        sel == #startSystemBrowser ifTrue:[
+            s := 'SBROWSER_BUTTON_HELP'
+        ].
+        sel == #startFileBrowser ifTrue:[
+            s := 'FBROWSER_BUTTON_HELP'
+        ].
+        sel == #startChangesBrowser ifTrue:[
+            s := 'CBROWSER_BUTTON_HELP'
+        ].
     ].
     s notNil ifTrue:[
-	^ resources string:s
+        ^ resources string:s
     ].
     ^ nil
+
+    "Modified: 26.2.1996 / 23:08:19 / cg"
 ! !
 
 !NewLauncher methodsFor:'infoview update'!
@@ -2039,7 +2042,7 @@
 
     ActiveHelp notNil ifTrue:[
         l := #(
-                '\c active help'
+                'active help \c'
                 'ST/X documentation'
               ).
         s := #(
@@ -2065,7 +2068,7 @@
         (myMenu menuAt:#help) checkToggleAt:#toggleActiveHelp: put:true
     ].
 
-    "Modified: 26.2.1996 / 22:52:43 / cg"
+    "Modified: 26.2.1996 / 23:28:57 / cg"
 !
 
 setupOtherViewsIn:aTopView
@@ -2293,5 +2296,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.87 1996-02-26 21:53:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.88 1996-02-26 22:43:38 cg Exp $'
 ! !