--- a/Launcher.st	Thu Jan 02 20:21:42 1997 +0100
+++ b/Launcher.st	Thu Jan 02 20:29:13 1997 +0100
@@ -2898,7 +2898,7 @@
 !Launcher methodsFor:'infoview update'!
 
 info
-    |project projectName projectDir packageName defNameSpace|
+    |project projectName projectDir packageName defNameSpace msg args|
 
     (Project isNil or:[(project := Project current) isNil]) ifTrue:[
         projectName := '* none *'.
@@ -2914,15 +2914,24 @@
         defNameSpace := Smalltalk.
     ].
 
-    ^ resources
-        string:'project: ''%1''  fileOut to: ''%3''  package: ''%2''  nameSpace: ''%4'''
-        withArgs:(Array 
+    defNameSpace == Smalltalk ifTrue:[
+        msg := 'project: ''%1''  fileOut to: ''%3''  package: ''%2'''.
+        args := Array 
+                    with:projectName
+                    with:packageName 
+                    with:(projectDir contractTo:30).
+    ] ifFalse:[
+        msg := 'project: ''%1''  fileOut to: ''%3''  package: ''%2''  nameSpace: %4'.
+        args := Array 
                         with:projectName
                         with:packageName 
                         with:(projectDir contractTo:30)
-                        with:defNameSpace name)
-
-    "Modified: 2.1.1997 / 20:08:10 / cg"
+                        with:defNameSpace name.
+    ].
+        
+    ^ resources string:msg withArgs:args
+
+    "Modified: 2.1.1997 / 20:26:44 / cg"
 !
 
 showActivity:someMessage
@@ -3975,5 +3984,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.218 1997-01-02 19:08:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.219 1997-01-02 19:29:13 cg Exp $'
 ! !