--- a/Filename.st	Tue May 14 18:32:08 2013 +0200
+++ b/Filename.st	Tue May 14 21:16:42 2013 +0200
@@ -1400,14 +1400,9 @@
 
 separator
     "return the file/directory separator.
-     This is to be redefined in concrete classes;
-     the following default usually leads to a flat view of
-     the fileSystem (huh - BS2000 ?)"
-
-    self isAbstract ifTrue:[
-       ^ ConcreteClass separator
-    ].
-    ^ $_
+     This is to be redefined in concrete classes."
+
+   ^ ConcreteClass separator
 
     "
      Filename separator
@@ -5931,11 +5926,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.393 2013-05-07 15:29:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.394 2013-05-14 19:16:42 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.393 2013-05-07 15:29:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.394 2013-05-14 19:16:42 stefan Exp $'
 ! !