--- a/MIMETypes.st	Mon Feb 14 17:20:18 2011 +0100
+++ b/MIMETypes.st	Mon Feb 14 17:24:42 2011 +0100
@@ -829,6 +829,8 @@
                 #'application/x-ms-shortcut' )
         ( 'WALTOP' 
                 #'application/x-waltop-digital-notepad' )
+        ('PK'                       
+                #'application/x-zip-compressed')
      ) pairsDo:[:pattern :what |
         |patternString|
 
@@ -847,7 +849,6 @@
             "/ ('#!! /bin/bash'              'application/x-bash')
             "/ ('#!!/bin/bash'               'application/x-bash')
             ('<?xml version='           #'text/xml')
-            ('PK'                       #'application/x-zip-compressed')
 
             ('from dolphin'             #'application/x-smalltalk-source')
             ('from visualworks'         #'application/x-smalltalk-source')
@@ -886,7 +887,7 @@
     ].
     ^ nil
 
-    "Modified: / 14-02-2011 / 17:14:42 / cg"
+    "Modified: / 14-02-2011 / 17:24:37 / cg"
 !
 
 suffixForMimeType:mimeType
@@ -1309,11 +1310,11 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.110 2011-02-14 16:20:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.111 2011-02-14 16:24:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.110 2011-02-14 16:20:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.111 2011-02-14 16:24:42 cg Exp $'
 ! !
 
 MIMETypes initialize!