--- a/MIMETypes.st	Mon Nov 11 10:38:53 2002 +0100
+++ b/MIMETypes.st	Mon Nov 11 10:41:19 2002 +0100
@@ -190,7 +190,6 @@
         'xwd'           'image/x-xwindowdump'
         'ras'           'image/x-cmu-raster'
         'tga'           'image/x-targa'
-
     ) 
 !
 
@@ -309,6 +308,7 @@
         ('htm' 'html')          'text/html'
         ('shtml')               'text/html'
         ('txt' 'text')          'text/plain'
+        ('xml')                 'text/xml'
     )
 !
 
@@ -640,6 +640,10 @@
     ].
     ^ type
 
+    "
+     self mimeTypeForSuffix:'xml'
+    "
+
     "Created: / 30.6.1997 / 21:55:51 / cg"
     "Modified: / 23.12.1999 / 22:30:55 / cg"
 !
@@ -742,6 +746,8 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.43 2002-09-12 14:39:02 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.44 2002-11-11 09:41:19 cg Exp $'
 ! !
+
 MIMETypes initialize!
+MIMETypes::MIMEType initialize!