--- a/Launcher.st	Mon Dec 23 16:05:31 1996 +0100
+++ b/Launcher.st	Thu Jan 02 20:08:40 1997 +0100
@@ -11,11 +11,11 @@
 "
 
 ApplicationModel subclass:#Launcher
-        instanceVariableNames:'myMenu buttonPanel transcript infoView infoProcess helpIsOn
-                isMainLauncher'
-        classVariableNames:'CachedAboutIcon OpenLaunchers'
-        poolDictionaries:''
-        category:'Interface-Smalltalk'
+	instanceVariableNames:'myMenu buttonPanel transcript infoView infoProcess helpIsOn
+		isMainLauncher'
+	classVariableNames:'CachedAboutIcon OpenLaunchers'
+	poolDictionaries:''
+	category:'Interface-Smalltalk'
 !
 
 !Launcher class methodsFor:'documentation'!
@@ -2898,7 +2898,7 @@
 !Launcher methodsFor:'infoview update'!
 
 info
-    |project projectName projectDir packageName|
+    |project projectName projectDir packageName defNameSpace|
 
     (Project isNil or:[(project := Project current) isNil]) ifTrue:[
         projectName := '* none *'.
@@ -2908,14 +2908,21 @@
         projectName := project name.
         projectDir := project directory.
         packageName := project packageName.
+        defNameSpace := project defaultNameSpace.
+    ].
+    defNameSpace isNil ifTrue:[
+        defNameSpace := Smalltalk.
     ].
 
     ^ resources
-        string:'project: ''%1''  fileOut to: ''%3''  package: ''%2'''
-          withArgs:(Array 
+        string:'project: ''%1''  fileOut to: ''%3''  package: ''%2''  nameSpace: ''%4'''
+        withArgs:(Array 
                         with:projectName
                         with:packageName 
-                        with:(projectDir contractTo:30))
+                        with:(projectDir contractTo:30)
+                        with:defNameSpace name)
+
+    "Modified: 2.1.1997 / 20:08:10 / cg"
 !
 
 showActivity:someMessage
@@ -3968,5 +3975,5 @@
 !Launcher class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.217 1996-11-11 13:23:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.218 1997-01-02 19:08:40 cg Exp $'
 ! !