--- a/MIMETypes.st	Thu Oct 30 15:48:50 2003 +0100
+++ b/MIMETypes.st	Thu Oct 30 17:51:12 2003 +0100
@@ -522,7 +522,7 @@
     ^ type
 
     "
-     self mimeTypeForFilename:'foo.gif'  
+     self mimeTypeForFilename:'typeinst.dvi'      
      self mimeTypeForFilename:'foo.tar'
      self mimeTypeForFilename:'foo.tgz'
      self mimeTypeForFilename:'foo.tar.gz'
@@ -567,6 +567,7 @@
         LastType := MIMEType fromString:type.
         ^ LastType
     ].
+    ^ type
 
     "
      self mimeTypeForSuffix:'gif'     
@@ -842,7 +843,7 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.64 2003-10-30 14:48:50 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.65 2003-10-30 16:51:12 penk Exp $'
 ! !
 
 MIMETypes initialize!