--- a/MIMETypes.st	Fri May 18 19:32:38 2001 +0200
+++ b/MIMETypes.st	Fri May 18 19:36:35 2001 +0200
@@ -446,7 +446,8 @@
     |type filename lcFilename suff|
 
     filename := filenameArg asFilename.
-    lcFilename := filename name asLowercase.
+
+    lcFilename := filename baseName asLowercase.
     type := FilenameToTypeMapping at:lcFilename ifAbsent:nil.
     type isNil ifTrue:[
         "/ allow for fallback ...
@@ -530,6 +531,6 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.30 2001-05-18 17:32:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.31 2001-05-18 17:36:35 cg Exp $'
 ! !
 MIMETypes initialize!