--- a/Filename.st	Sat Nov 22 16:13:07 2014 +0100
+++ b/Filename.st	Sun Nov 23 16:40:43 2014 +0100
@@ -4422,7 +4422,7 @@
      or the contents is unknown.
      This is done using some heuristics, and may need some improvement"
 
-    |type buffer s size|
+    |type buffer s size mimeTypes|
 
     type := self type.
     type isNil ifTrue:[ ^ nil ].
@@ -4446,8 +4446,8 @@
     s close.
 
     "/ kludge to avoid making libview a prereq. of libbasic
-    (Smalltalk at:#MIMETypes) notNil ifTrue:[
-        ^ (Smalltalk at:#MIMETypes) mimeTypeOfData:buffer
+    (mimeTypes := Smalltalk at:#MIMETypes) notNil ifTrue:[
+        ^ mimeTypes mimeTypeOfData:buffer
     ].
     ^ nil
 
@@ -6057,11 +6057,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.428 2014-11-13 11:28:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.429 2014-11-23 15:40:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.428 2014-11-13 11:28:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.429 2014-11-23 15:40:43 cg Exp $'
 ! !