--- a/ProjectDefinition.st	Thu Apr 25 11:30:13 2013 +0100
+++ b/ProjectDefinition.st	Fri Apr 26 15:26:55 2013 +0100
@@ -291,7 +291,7 @@
 
     s := aPackageId asString copy replaceAny:':/' with:$_.
     (s endsWith:$_) ifTrue:[
-        s := s copyWithoutLast:1
+        s := s copyButLast:1
     ].
     ^ s
 
@@ -7473,11 +7473,11 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.459 2013-04-19 11:34:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.460 2013-04-25 13:11:08 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.459 2013-04-19 11:34:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.460 2013-04-25 13:11:08 stefan Exp $'
 !
 
 version_HG