--- a/Project.st	Fri Aug 18 16:23:50 2006 +0200
+++ b/Project.st	Fri Aug 18 17:15:25 2006 +0200
@@ -584,12 +584,9 @@
     "return the projects library name.
      This is the name of a classLibrary, created from this project"
 
-    |nm|
+    ^ self name asPackageId libraryName.
 
-    nm := self name.
-    ^ nm copyFrom:(nm lastIndexOfAny:':/')+1
-
-"/    ^ (self name copyReplaceAll:$/ with:$_) replaceAll:$: with:$_
+    "Modified: / 18-08-2006 / 17:14:52 / cg"
 !
 
 name
@@ -1590,7 +1587,7 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.197 2006-08-17 14:55:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.198 2006-08-18 15:15:25 cg Exp $'
 ! !
 
 Project initialize!