--- a/FileDirectory.st	Tue Sep 06 10:35:19 2011 +0100
+++ b/FileDirectory.st	Wed Sep 07 17:25:40 2011 +0100
@@ -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,12 +817,13 @@
 !FileDirectory class methodsFor:'documentation'!
 
 version
-    ^ '$Id: FileDirectory.st 10675 2011-08-22 10:53:10Z vranyj1 $'
+    ^ '$Id: FileDirectory.st 10686 2011-09-07 16:25:40Z vranyj1 $'
 !
 
 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!
 
+