--- a/DirectoryContentsBrowser.st	Wed Oct 24 18:09:48 2018 +0200
+++ b/DirectoryContentsBrowser.st	Thu Oct 25 11:08:29 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -3166,7 +3164,7 @@
     "answer the icon displayed in the table widget; if the icon is unspecified,
      and the fileInfo is set a default icon is returned otherwise nil"
 
-    |key|
+    |key target|
 
     icon notNil ifTrue:[^ icon ].
 
@@ -3182,7 +3180,12 @@
             key := #directory.
         ] ifFalse:[
             self isSymbolicLink ifTrue:[
-                key := #fileLink
+                ((target := fileInfo targetPath asFilename) exists 
+                and:[target isDirectory ]) ifTrue:[
+                    key := #directoryLink
+                ] ifFalse:[
+                    key := #fileLink
+                ].        
             ] ifFalse:[
                 key := #file
             ].
@@ -3190,7 +3193,7 @@
     ].
     ^ MIMETypeIconLibrary iconForKey:key.
 
-    "Modified: / 30-07-2018 / 16:30:16 / Claus Gittinger"
+    "Modified: / 25-10-2018 / 11:04:22 / Claus Gittinger"
 !
 
 icon:anIcon