--- a/MIMETypes.st	Mon Aug 12 13:06:10 2002 +0200
+++ b/MIMETypes.st	Thu Aug 15 15:36:27 2002 +0200
@@ -150,7 +150,7 @@
         "/ misc stuff
 
         "/ progr. languages
-        'st'                         'application/x-smalltalk-source'
+        ('st' 'cls')                 'application/x-smalltalk-source'
         'sif'                        'application/x-smalltalk-source-sif'
         'c'                          'application/x-c-source'
         ('cc' 'cpp')                 'application/x-cpp-source'
@@ -571,11 +571,16 @@
 
     "Created: / 30.6.1997 / 21:56:20 / cg"
     "Modified: / 1.8.1998 / 17:03:18 / cg"
+!
+
+mimeTypeForSuffixMapping
+
+    ^ FileSuffixToTypeMapping
 ! !
 
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.35 2002-03-12 14:21:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.36 2002-08-15 13:36:27 penk Exp $'
 ! !
 MIMETypes initialize!