--- a/PCFilename.st	Thu Apr 25 15:12:04 2013 +0200
+++ b/PCFilename.st	Thu Apr 25 16:11:09 2013 +0200
@@ -731,7 +731,7 @@
     path size > 1 ifTrue:[
         (path endsWith:'\') ifTrue:[
             (path endsWith:':\') ifFalse:[
-                path := path copyWithoutLast:1
+                path := path copyButLast:1
             ]
         ]
     ].
@@ -828,7 +828,7 @@
 
     (n endsWith:'\') ifTrue:[
         ((n size == 3) and:[(n at:2) == $:]) ifFalse:[
-            n := n copyWithoutLast:1
+            n := n copyButLast:1
         ]
     ].
 "/    i := OperatingSystem infoOf:n.
@@ -850,7 +850,7 @@
 
     name := self osNameForFile.
     (name endsWith:'\') ifTrue:[
-        ^ name copyWithoutLast:1
+        ^ name copyButLast:1
     ].
     ^ name
 
@@ -886,13 +886,14 @@
 !PCFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.57 2012-07-22 08:06:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.58 2013-04-25 14:11:09 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.57 2012-07-22 08:06:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.58 2013-04-25 14:11:09 stefan Exp $'
 !
 
 version_SVN
     ^ '§Id§'
 ! !
+