--- a/FileDirectory.st	Wed Aug 24 15:45:21 2011 +0200
+++ b/FileDirectory.st	Mon Aug 29 08:23:13 2011 +0200
@@ -244,6 +244,9 @@
     |info|
 
     info := self infoOf:name.
+    info isNil ifTrue:[
+        info := (self filenameFor:name) linkInfo.
+    ].
     ^ DirectoryEntry new
         name:name
         creationTime:(info creationTime)
@@ -254,6 +257,8 @@
     "
      (FileDirectory directoryNamed:'.') entries
     "
+
+    "Modified: / 29-08-2011 / 08:19:48 / cg"
 !
 
 directoryExists:dir
@@ -812,11 +817,11 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.50 2011-08-21 16:01:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.51 2011-08-29 06:23:13 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.50 2011-08-21 16:01:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.51 2011-08-29 06:23:13 cg Exp $'
 ! !
 
 FileDirectory initialize!