--- a/NewLauncher.st	Wed Mar 03 22:57:27 2004 +0100
+++ b/NewLauncher.st	Wed Mar 03 22:59:52 2004 +0100
@@ -3764,10 +3764,11 @@
 
     addMenuForToolInfo := 
         [:toolInfo|
-            |menuItem|
+            |menuItem originalLabel|
 
             menuItem := toolInfo item.
-            menuItem label:(toolInfo originalLabel).
+            originalLabel := toolInfo originalLabel.
+            originalLabel notNil ifTrue:[ menuItem label:originalLabel ].
             self 
                 addMenuItem:menuItem
                 from:(toolInfo resourceProvider)
@@ -4160,5 +4161,5 @@
 !NewLauncher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.308 2004-03-02 16:27:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/NewLauncher.st,v 1.309 2004-03-03 21:59:52 cg Exp $'
 ! !