--- a/MIMETypes.st	Fri Jul 27 09:52:05 2012 +0200
+++ b/MIMETypes.st	Sun Jul 29 13:14:28 2012 +0200
@@ -682,12 +682,12 @@
     "Modified: / 1.8.1998 / 17:01:26 / cg"
 !
 
-mimeTypeForFilename:filenameArg
+mimeTypeForFilename:filenameOrString
     "given a filename, return the mime-type or nil, if unknown"
 
     |type filename lcFilename suff suff2|
 
-    filename := filenameArg asFilename.
+    filename := filenameOrString asFilename.
 
     lcFilename := filename baseName asLowercase.
     type := FilenameToTypeMapping at:lcFilename ifAbsent:nil.
@@ -732,6 +732,7 @@
     "
 
     "Modified: / 10-05-2011 / 11:55:18 / cg"
+    "Modified (format): / 28-07-2012 / 09:39:15 / cg"
 !
 
 mimeTypeForFilename:filename put:mimeType
@@ -1338,11 +1339,11 @@
 !MIMETypes class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.122 2012-07-20 15:37:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.123 2012-07-29 11:14:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.122 2012-07-20 15:37:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MIMETypes.st,v 1.123 2012-07-29 11:14:28 cg Exp $'
 ! !
 
 MIMETypes initialize!