--- a/MIMETypeIconLibrary.st	Wed Feb 08 19:44:06 2017 +0100
+++ b/MIMETypeIconLibrary.st	Thu Feb 09 18:21:44 2017 +0100
@@ -332,7 +332,6 @@
     |filename fileType mimeType suffix|
 
     filename := aFilenameArg asFilename.
-
     fileType := self fileTypeIconKeyFor:filename.
 
     (fileType ~~ #directory) ifTrue:[
@@ -340,10 +339,12 @@
         (suffix = 'bak' or:[suffix = 'sav']) ifTrue:[
             filename := filename withoutSuffix.
         ].
-        mimeType := MIMETypes mimeTypeForFilename:filename.
+        mimeType := MIMETypes mimeTypeForFilename:filename asNonBackupFilename.
     ].
 
     ^ mimeType ? fileType.
+
+    "Modified: / 09-02-2017 / 14:03:16 / stefan"
 !
 
 iconKeyForRemoteDirectory:aFilenameArg
@@ -623,11 +624,11 @@
 !MIMETypeIconLibrary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.30 2015-01-26 10:11:25 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypeIconLibrary.st,v 1.30 2015-01-26 10:11:25 stefan Exp $'
+    ^ '$Header$'
 ! !