--- a/MIMETypes.st	Wed Mar 18 19:11:52 2015 +0100
+++ b/MIMETypes.st	Mon Mar 23 16:16:23 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#MIMETypes
 	instanceVariableNames:''
 	classVariableNames:'TypeToImageReaderClassMapping TypeToCommentStringMapping
@@ -1059,6 +1061,7 @@
             ('methodsfor:'              #'application/x-smalltalk-source')
             ('Application create:'      #'application/x-smalltalk-source')
             ('becomeDefault!!'           #'application/x-smalltalk-source')
+            ('(reader defineClass:'     #'application/x-smalltalk-source')      "/ gravel smalltalk
 
     ) pairsDo:[:pattern :what | 
         (lcBuffer findString:pattern) ~~ 0 ifTrue:[
@@ -1570,11 +1573,11 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.138 2014-11-23 15:48:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.139 2015-03-23 15:16:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.138 2014-11-23 15:48:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.139 2015-03-23 15:16:23 cg Exp $'
 ! !