--- a/Filename.st	Tue Apr 30 10:54:00 2013 +0100
+++ b/Filename.st	Tue May 21 21:58:09 2013 +0100
@@ -1334,17 +1334,11 @@
      GUESS: 
         does it strip off any volume characters and make a path relative ?"
 
-    |sep|
-
     self isAbstract ifTrue:[
         ^ ConcreteClass localNameStringFrom:aString
     ].
 
-    sep := self separatorString.
-    (aString startsWith:sep) ifTrue:[
-        ^ aString copyFrom:sep size + 1
-    ].
-    ^ aString
+    ^ aString withoutPrefix:self separatorString
 
     "Modified: 7.9.1995 / 10:44:56 / claus"
     "Modified: 8.9.1997 / 00:33:51 / cg"
@@ -5937,11 +5931,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.392 2013-04-27 12:58:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.393 2013-05-07 15:29:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.392 2013-04-27 12:58:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.393 2013-05-07 15:29:20 cg Exp $'
 ! !