--- a/DirectoryContentsBrowser.st	Fri Aug 13 21:25:29 2004 +0200
+++ b/DirectoryContentsBrowser.st	Fri Aug 13 21:27:55 2004 +0200
@@ -2578,7 +2578,7 @@
 !
 
 startDiskUsageInfoProcess
-    |aColOfFiles selectedFile|
+    |aColOfFiles selectedFile info|
 
     aColOfFiles := self currentFileNameHolder value.
     (aColOfFiles isEmpty or:[self currentFilesAreInSameDirectory not]) ifTrue:[
@@ -2586,8 +2586,9 @@
     ].
     aColOfFiles size == 1 ifTrue:[
         selectedFile := aColOfFiles first.
-        selectedFile isSymbolicLink ifTrue:[
-            self notify:'Symbolic link to: ' , (selectedFile linkInfo at:#path) allBold
+        info := selectedFile linkInfo.
+        info isSymbolicLink ifTrue:[
+            self notify:'Symbolic link to: ' , (info path) allBold
         ] ifFalse:[
             self startDiskUsageInfoProcessFor:selectedFile.
         ].
@@ -3137,9 +3138,6 @@
             "/ do not access, to avoid automount
         ] ifFalse:[
             fileInfo := fileName linkInfo.
-            fileInfo isNil ifTrue:[
-                fileInfo := fileName info.
-            ].
         ].
     ].
     ^ fileInfo
@@ -3184,5 +3182,5 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.166 2004-08-03 09:30:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.167 2004-08-13 19:27:55 stefan Exp $'
 ! !