--- a/ProjectDefinition.st	Thu Apr 25 15:11:04 2013 +0200
+++ b/ProjectDefinition.st	Thu Apr 25 15:11:08 2013 +0200
@@ -289,7 +289,7 @@
 
     s := aPackageId asString copy replaceAny:':/' with:$_.
     (s endsWith:$_) ifTrue:[
-        s := s copyWithoutLast:1
+        s := s copyButLast:1
     ].
     ^ s
 
@@ -7410,11 +7410,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_SVN