--- a/ProjectBrowser.st	Thu Jun 24 17:44:30 1999 +0200
+++ b/ProjectBrowser.st	Thu Jun 24 18:00:36 1999 +0200
@@ -1491,12 +1491,6 @@
                   #enabled: #hasProjectSelectedAndProjectFilenameHolder
                 )
                #(#MenuItem
-                  #label: 'Save As...'
-                  #translateLabel: true
-                  #value: #saveProjectAs
-                  #enabled: #hasProjectSelectedHolder
-                )
-               #(#MenuItem
                   #label: '-'
                 )
                #(#MenuItem
@@ -2841,7 +2835,7 @@
         self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not.
         self projectType value:(p type).
         self projectDirectory value:(p directory).
-
+        self projectPackage value:(p packageName).
         self projectNamespace value:(p defaultNameSpace ? Smalltalk) name.
 
         self repositoryModule value:(p repositoryModule).
@@ -2902,6 +2896,7 @@
         ].
 
         p directory:self projectDirectory value.
+        p packageName:(self projectPackage value) asSymbol.
 
         p repositoryModule:self repositoryModule value.
         p repositoryDirectory:self repositoryDirectory value.
@@ -3296,7 +3291,7 @@
 
     p := self currentProject.
     p isNil ifTrue:[
-        self information:'Selet a project first.'.
+        self information:'Select a project first.'.
         ^self
     ].
     p directory isNil ifTrue:[
@@ -3307,7 +3302,9 @@
         p directory:d
     ].
 
-    p saveAsProjectFile.
+    self withCursor:Cursor write do:[
+        p saveAsProjectFile.
+    ]
 
     "Modified: / 26.4.1999 / 22:43:57 / cg"
 !