--- a/Tools__TagList.st	Thu Feb 09 18:20:53 2017 +0100
+++ b/Tools__TagList.st	Thu Feb 09 18:23:18 2017 +0100
@@ -434,34 +434,27 @@
 !
 
 tagMimeTypeForFile:aFile
-    "returns the tag-mimetype for a file or nil
-    "
-    |suff file list name mimeMake|
+    "returns the tag-mimetype for a file or nil"
+
+    |suff file list name|
 
     aFile isNil ifTrue:[^ nil].
 
     file := aFile asFilename.
-    suff := file suffix.
-
-    suff size ~~ 0 ifTrue:[
-        suff := suff asLowercase.
-
-        (suff = 'bak' or:[suff = 'sav']) ifTrue:[
-            file := file asFilename withoutSuffix.
-            suff := file suffix.
-            suff size ~~ 0 ifTrue:[
-                suff := suff asLowercase
-            ]
-        ]
+    suff := file asNonBackupFilename suffix asLowercase.
+
+    (suff = 'bak' or:[suff = 'sav']) ifTrue:[
+        file := file asFilename withoutSuffix.
+        suff := file suffix asLowercase.
     ].
+
     list := self tagsSuffixes.
 
     " hack to test for make-file patterns "
     name := file baseName asLowercase.
-    mimeMake := #'text/make'.
-
-    ((list at:mimeMake) contains:[:pattern | pattern match:name]) ifTrue:[
-        ^ mimeMake
+
+    ((list at:#'text/make') contains:[:pattern | pattern match:name]) ifTrue:[
+        ^ #'text/make'
     ].
 
     self tagsSuffixes keysAndValuesDo:[:mimeType :suffixes|
@@ -471,6 +464,8 @@
     ].
     ^ aFile asFilename mimeTypeOfContents
     "/ ^ nil
+
+    "Modified (comment): / 09-02-2017 / 14:10:51 / stefan"
 ! !
 
 !TagList class methodsFor:'tag generation'!