--- a/MIMETypes.st	Sun Mar 31 21:34:32 2013 +0200
+++ b/MIMETypes.st	Tue Apr 02 20:10:32 2013 +0200
@@ -857,6 +857,8 @@
                 #'application/x-waltop-digital-notepad' )
         ('PK'                       
                 #'application/x-zip-compressed')
+        ('<?xml'                       
+                #'text/xml')
      ) pairsDo:[:pattern :what |
         |patternString|
 
@@ -875,8 +877,9 @@
             ('#!!/bin/sh'                #'application/x-sh')
             "/ ('#!! /bin/bash'              'application/x-bash')
             "/ ('#!!/bin/bash'               'application/x-bash')
-            ('<?xml version='           #'text/xml')
 
+            ('---- encoding: '          #'application/x-smalltalk-source')
+            ('---- timestamp '          #'application/x-smalltalk-source')
             ('from dolphin'             #'application/x-smalltalk-source')
             ('from visualworks'         #'application/x-smalltalk-source')
             ('categoriesforclass'       #'application/x-smalltalk-source')
@@ -1339,11 +1342,11 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.126 2013-03-12 17:17:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.127 2013-04-02 18:10:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.126 2013-03-12 17:17:27 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.127 2013-04-02 18:10:32 cg Exp $'
 ! !