--- a/Filename.st	Thu Jun 04 12:12:14 1998 +0200
+++ b/Filename.st	Thu Jun 04 12:13:13 1998 +0200
@@ -741,7 +741,7 @@
         directoriesOnly ifFalse:[
             f isDirectory ifTrue:[
                 (name endsWith:(Filename separator)) ifFalse:[
-                    name := name , '/'
+                    name := name , (Filename separator)
                 ].
             ].
         ]
@@ -769,7 +769,7 @@
 
     ^ s
 
-    "Modified: / 4.6.1998 / 10:09:39 / cg"
+    "Modified: / 4.6.1998 / 10:12:57 / cg"
 !
 
 filesMatching:aPattern
@@ -2887,6 +2887,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.119 1998-06-04 10:12:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.120 1998-06-04 10:13:13 cg Exp $'
 ! !
 Filename initialize!