--- a/MIMETypes.st	Mon May 26 13:30:33 2003 +0200
+++ b/MIMETypes.st	Tue Jun 03 20:07:57 2003 +0200
@@ -834,12 +834,16 @@
 
 isSmalltalkSource
     ^ (self = 'application/x-smalltalk-source')
+!
+
+isXml
+    ^ (self = 'text/xml')
 ! !
 
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.57 2003-05-20 10:01:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.58 2003-06-03 18:07:57 cg Exp $'
 ! !
 
 MIMETypes initialize!