--- a/FileBrowser.st	Wed Nov 28 14:58:25 2001 +0100
+++ b/FileBrowser.st	Mon Dec 03 15:33:21 2001 +0100
@@ -2175,7 +2175,7 @@
 fileFileInLazy:lazy
     "fileIn the selected file(s)"
 
-    |aStream path wasLazy bos prevCurrentFileName|
+    |aStream path wasLazy prevCurrentFileName|
 
     self selectedFilesDo:[:fileName |
         path := currentDirectory filenameFor:fileName.
@@ -2206,7 +2206,8 @@
                     ObjectFileLoader loadObjectFile:p.
                     Class addInfoRecord:('fileIn ' , fileName) 
                 ]
-            ] ifFalse:[ (path hasSuffix:'cls') ifTrue:[
+            ] ifFalse:[ ((path hasSuffix:'cls') 
+                         and:[((path mimeTypeOfContents ? '') startsWith:'application/x-smalltalk-source') not ]) ifTrue:[
                 "/ loading a binary class file
                 aStream := path readStream.
                 aStream notNil ifTrue:[
@@ -7692,5 +7693,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.447 2001-11-23 09:32:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.448 2001-12-03 14:33:21 cg Exp $'
 ! !