--- a/Project.st	Wed Sep 22 17:39:21 1999 +0200
+++ b/Project.st	Wed Sep 22 18:26:29 1999 +0200
@@ -1054,8 +1054,7 @@
     |dir fn nm s|
 
     dir := self directory asFilename.
-    nm := self name.
-    nm := nm copyFrom:(nm lastIndexOf:$/)+1.
+    nm := self libraryName.
     fn := dir construct:nm.
     fn := fn withSuffix:'prj'.
 
@@ -2618,6 +2617,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.103 1999-09-22 15:39:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.104 1999-09-22 16:26:29 cg Exp $'
 ! !
 Project initialize!