--- a/HierarchicalFileList.st	Tue Dec 16 19:44:59 2008 +0100
+++ b/HierarchicalFileList.st	Wed Dec 17 10:18:46 2008 +0100
@@ -936,10 +936,15 @@
 !HierarchicalFileList::Directory methodsFor:'fetching'!
 
 basicFetchIndicator
-    |linkName fileName hasChildren info|
+    |linkName fileName hasChildren info fileItem|
 
     fileName := self fileName.
-    info := fileName linkInfo.
+    fileItem := DirectoryContents contentsItemForFileName:fileName.
+
+    fileItem notNil ifTrue:[
+        info  := fileItem info.
+    ].
+
     (info notNil and:[info isSymbolicLink]) ifTrue:[
         linkName := info path.
     ] ifFalse:[
@@ -1257,7 +1262,7 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.69 2008-11-03 11:20:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.70 2008-12-17 09:18:46 ca Exp $'
 ! !
 
 HierarchicalFileList::Directory initialize!