--- a/Launcher.st	Mon May 04 12:41:05 1998 +0200
+++ b/Launcher.st	Wed May 06 16:13:28 1998 +0200
@@ -4374,7 +4374,9 @@
 
                     aView isTopView ifTrue:[
                         l := aView label.
-                        aView label:(l , ' '); label:l.  "/ force a change
+                        l notNil ifTrue:[
+                            aView label:(l , ' '); label:l.  "/ force a change
+                        ]
                     ]
                 ]
             ]
@@ -5438,5 +5440,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.337 1998-05-04 10:41:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.338 1998-05-06 14:13:28 cg Exp $'
 ! !