--- a/MIMETypes.st	Wed Jun 04 10:46:09 2008 +0200
+++ b/MIMETypes.st	Wed Jun 04 10:55:56 2008 +0200
@@ -67,9 +67,10 @@
 
 examples
 "
-    MIMETypes mimeTypeFromString:'application/x-expecco-testSuite' 
+    MIMETypes mimeTypeFromString:'application/x-expecco-testsuite' 
 
     MIMETypes mimeTypeForSuffix:'gif'     
+    MIMETypes mimeTypeForSuffix:'ets'     
 "
 !
 
@@ -122,7 +123,7 @@
         at:'application/x-sh'
         put:#('#' (nil nil)).           "/ '#' for EOL comments only
 
-    #('text/html' 'text/xml' 'application/xml')
+    #('text/html' 'text/xml' 'application/xml' 'application/x-expecco-testsuite')
     do:[:eachXMLType |
         TypeToCommentStringMapping 
             at:eachXMLType
@@ -778,7 +779,7 @@
 
     "
      self mimeTypeFromString:'image/gif' 
-     self mimeTypeFromString:'application/x-expecco-testSuite' 
+     self mimeTypeFromString:'application/x-expecco-testsuite' 
     "
 !
 
@@ -1213,7 +1214,7 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.92 2008-06-04 08:46:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.93 2008-06-04 08:55:56 cg Exp $'
 ! !
 
 MIMETypes initialize!