--- a/MIMETypes.st	Thu May 08 02:29:33 2014 +0200
+++ b/MIMETypes.st	Wed May 14 20:30:35 2014 +0200
@@ -994,6 +994,8 @@
             ('interchangeversion:'      #'application/x-smalltalk-source-sif')
             ('subclass:'                #'application/x-smalltalk-source')
             ('methodsfor:'              #'application/x-smalltalk-source')
+            ('Application create:'      #'application/x-smalltalk-source')
+            ('becomeDefault!!'           #'application/x-smalltalk-source')
 
     ) pairsDo:[:pattern :what | 
         (lcBuffer findString:pattern) ~~ 0 ifTrue:[
@@ -1496,11 +1498,11 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.133 2014-03-31 09:19:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.134 2014-05-14 18:30:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.133 2014-03-31 09:19:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.134 2014-05-14 18:30:35 cg Exp $'
 ! !