--- a/PCFilename.st	Tue May 07 17:29:07 2013 +0200
+++ b/PCFilename.st	Tue May 07 17:29:18 2013 +0200
@@ -169,7 +169,7 @@
                 "/ kludge when running cygwin: replace '/cygdrive/X/...'
                 "/ by X:\...
                 (tempDir startsWith:'/cygdrive/') ifTrue:[
-                    tempDir := tempDir copyFrom:'/cygdrive/' size+1.
+                    tempDir := tempDir withoutPrefix:'/cygdrive/'.
                     tempDir size > 2 ifTrue:[
                         (tempDir at:2) == $/ ifTrue:[
                             tempDir := (tempDir at:1) asString , ':' ,
@@ -886,14 +886,14 @@
 !PCFilename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.58 2013-04-25 14:11:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.59 2013-05-07 15:29:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.58 2013-04-25 14:11:09 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PCFilename.st,v 1.59 2013-05-07 15:29:18 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ '$Id: PCFilename.st,v 1.59 2013-05-07 15:29:18 cg Exp $'
 ! !