--- a/MIMETypeIconLibrary.st	Wed May 15 13:15:19 2013 +0200
+++ b/MIMETypeIconLibrary.st	Wed May 15 19:29:27 2013 +0200
@@ -198,19 +198,33 @@
 !MIMETypeIconLibrary class methodsFor:'accessing'!
 
 fileTypeIconKeyFor:aFilename
-    aFilename isSymbolicLink ifTrue:[
+    |info|
+
+    info := aFilename linkInfo.
+    info isNil ifTrue:[
+        ^ nil.
+    ].
+    info isSymbolicLink ifTrue:[
         ^ #symbolicLink.
     ].
-    aFilename isDirectory ifTrue:[
+    info isDirectory ifTrue:[
         ^ #directory.
     ].
-    aFilename isSpecialFile ifTrue:[
+    info isSpecialFile ifTrue:[
         ^ #specialFile.
     ].
     aFilename isExecutableProgram ifTrue:[
         ^ #executableFile
     ].
     ^ #file.
+
+    "
+     self fileTypeIconKeyFor:'/foo/bar' asFilename 
+     self fileTypeIconKeyFor:'/tmp' asFilename 
+     self fileTypeIconKeyFor:'/dev/null' asFilename 
+     self fileTypeIconKeyFor:'Makefile' asFilename 
+     self fileTypeIconKeyFor:'/usr/bin/make' asFilename 
+    "
 !
 
 iconForKey:mimeTypeOrKey
@@ -281,11 +295,12 @@
 !MIMETypeIconLibrary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.16 2010-07-07 13:42:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.17 2013-05-15 17:29:27 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.16 2010-07-07 13:42:18 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.17 2013-05-15 17:29:27 stefan Exp $'
 ! !
 
+
 MIMETypeIconLibrary initialize!