--- a/MIMETypes.st	Sat Mar 09 20:57:31 2019 +0100
+++ b/MIMETypes.st	Tue Mar 12 16:09:24 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG 
 	      All Rights Reserved
@@ -1232,7 +1234,8 @@
             ('from visualworks'         #'application/x-smalltalk-source')
             ('from squeak'              #'application/x-smalltalk-source')
             ('from smalltalk/x'         #'application/x-smalltalk-source')
-            ('"{ Package:'              #'application(x-smalltalk-source')
+            ('"{ package:'              #'application/x-smalltalk-source')
+            ('"{ encoding: '            #'application/x-smalltalk-source') 
             ('categoriesforclass'       #'application/x-smalltalk-source')
             ('methodsfor!!'              #'application/x-smalltalk-source')
             ('subclass:'                #'application/x-smalltalk-source')
@@ -1240,13 +1243,13 @@
             ('interchangeversion:'      #'application/x-smalltalk-source-sif')
             ('subclass:'                #'application/x-smalltalk-source')
             ('methodsfor:'              #'application/x-smalltalk-source')
-            ('Application create:'      #'application/x-smalltalk-source')
+            ('application create:'      #'application/x-smalltalk-source')
             ('becomeDefault!!'           #'application/x-smalltalk-source')
             ('(reader defineClass:'     #'application/x-smalltalk-source')      "/ gravel smalltalk
             ('(define '                 #'application/x-scheme-source')      
 
     ) pairsDo:[:pattern :what | 
-        (lcBuffer findString:pattern) ~~ 0 ifTrue:[
+        (lcBuffer findString:pattern caseSensitive:false) ~~ 0 ifTrue:[
             ^ MIMEType fromString:what
         ]
     ].
@@ -1274,6 +1277,7 @@
 
     "Modified: / 12-07-2011 / 19:08:17 / cg"
     "Modified (comment): / 01-03-2018 / 18:50:36 / mawalch"
+    "Modified: / 12-03-2019 / 16:08:00 / Claus Gittinger"
 !
 
 suffixForMimeType:mimeType