--- a/MIMETypes.st	Wed Oct 29 11:45:21 2003 +0100
+++ b/MIMETypes.st	Thu Oct 30 15:48:50 2003 +0100
@@ -522,7 +522,7 @@
     ^ type
 
     "
-     self mimeTypeForFilename:'foo.gz'
+     self mimeTypeForFilename:'foo.gif'  
      self mimeTypeForFilename:'foo.tar'
      self mimeTypeForFilename:'foo.tgz'
      self mimeTypeForFilename:'foo.tar.gz'
@@ -562,12 +562,14 @@
     type == #unknown ifTrue:[
         type := nil.
     ].
-    LastSuffix := suffix.
-    LastType := type.
-    ^ type
+    type notNil ifTrue:[
+        LastSuffix := suffix.
+        LastType := MIMEType fromString:type.
+        ^ LastType
+    ].
 
     "
-     self mimeTypeForSuffix:'xml'
+     self mimeTypeForSuffix:'gif'     
     "
 
     "Created: / 30.6.1997 / 21:55:51 / cg"
@@ -840,7 +842,7 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.63 2003-10-29 08:31:15 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.64 2003-10-30 14:48:50 penk Exp $'
 ! !
 
 MIMETypes initialize!