--- a/MIMETypes.st	Wed Jun 04 11:06:22 2008 +0200
+++ b/MIMETypes.st	Thu Jun 05 11:21:41 2008 +0200
@@ -1214,12 +1214,20 @@
     "return true, if I represent the xml text type"
 
     ^ (self = 'text/xml')
+!
+
+suffix
+    ^ MIMETypes suffixForMimeType:self
+
+    "
+       (MIMETypes mimeTypeFromString:'application/x-expecco-testsuite') suffix 
+    "
 ! !
 
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.94 2008-06-04 09:06:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.95 2008-06-05 09:21:41 stefan Exp $'
 ! !
 
 MIMETypes initialize!