--- a/Filename.st	Tue May 08 16:56:32 2001 +0200
+++ b/Filename.st	Fri May 11 20:12:46 2001 +0200
@@ -3067,12 +3067,13 @@
     fileNames := OrderedCollection new.
     dirNames := OrderedCollection new.
     self directoryContentsDo:[:f | |t|
-        (t := self construct:f) isSymbolicLink ifFalse:[
-            t isDirectory ifTrue:[
+        t := self construct:f.
+        t isDirectory ifTrue:[
+            t isSymbolicLink ifFalse:[
                 dirNames add:f
-            ] ifFalse:[
-                fileNames add:f
             ]
+        ] ifFalse:[
+            fileNames add:f
         ]
     ].
 
@@ -3790,6 +3791,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.192 2000-11-21 15:16:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.193 2001-05-11 18:12:46 cg Exp $'
 ! !
 Filename initialize!