--- a/Filename.st	Tue Apr 11 01:54:21 2017 +0200
+++ b/Filename.st	Tue Apr 11 09:37:12 2017 +0200
@@ -5011,7 +5011,7 @@
 
     "/ kludge to avoid making libview a prereq. of libbasic
     (mimeTypes := Smalltalk at:#MIMETypes) notNil ifTrue:[
-	^ mimeTypes mimeTypeForFilename:(self name)
+        ^ mimeTypes mimeTypeForFilename:self
     ].
     ^ nil
 
@@ -5027,6 +5027,8 @@
      '/x.zip' asFilename mimeTypeFromName
      '/x.gz' asFilename mimeTypeFromName
     "
+
+    "Modified: / 11-04-2017 / 09:36:30 / cg"
 !
 
 mimeTypeOfContents