--- a/SourceCodeManagerUtilities.st	Thu Apr 25 15:10:04 2013 +0200
+++ b/SourceCodeManagerUtilities.st	Thu Apr 25 15:10:22 2013 +0200
@@ -2275,7 +2275,7 @@
             ]
         ].
         (fileName endsWith:',v') ifTrue:[
-            fileName := fileName copyWithoutLast:2
+            fileName := fileName copyButLast:2
         ].
         (fileName endsWith:'.st') ifFalse:[
             fileName := fileName , '.st'
@@ -3885,10 +3885,10 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.272 2013-04-04 09:34:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.273 2013-04-25 13:10:22 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.272 2013-04-04 09:34:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.273 2013-04-25 13:10:22 stefan Exp $'
 ! !