--- a/PerforceSourceCodeManagerUtilities.st	Thu Apr 25 15:10:03 2013 +0200
+++ b/PerforceSourceCodeManagerUtilities.st	Thu Apr 25 15:10:08 2013 +0200
@@ -2285,11 +2285,11 @@
     classFileName isNil ifTrue:[classFileName := cls classBaseFilename].
 
     (classFileName endsWith:',v') ifTrue:[
-        classFileName := classFileName copyWithoutLast:2.
+        classFileName := classFileName copyButLast:2.
     ].
     (classFileName endsWith:'.st') ifTrue:[
         cls notNil ifTrue:[
-            classFileName := classFileName copyWithoutLast:3.
+            classFileName := classFileName copyButLast:3.
         ]
     ].
     module :=  checkInDefinition package.
@@ -3538,9 +3538,10 @@
 !PerforceSourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagerUtilities.st,v 1.2 2012-10-30 14:33:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagerUtilities.st,v 1.3 2013-04-25 13:10:08 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagerUtilities.st,v 1.2 2012-10-30 14:33:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/PerforceSourceCodeManagerUtilities.st,v 1.3 2013-04-25 13:10:08 stefan Exp $'
 ! !
+