--- a/FileBrowser.st	Tue Apr 29 21:19:09 1997 +0200
+++ b/FileBrowser.st	Tue Apr 29 21:57:13 1997 +0200
@@ -455,9 +455,8 @@
         ((currentDirectory typeOf:fileName) == #regular) ifTrue:[
             here := currentDirectory pathName.
 
-            ((fileName endsWith:'.o') 
-            or:[(fileName endsWith:'.so')
-            or:[fileName endsWith:'.obj']]) ifTrue:[
+            (ObjectFileLoader notNil
+            and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[
                 Object abortSignal catch:[
                     |p|
 
@@ -521,7 +520,7 @@
         ]
     ]
 
-    "Modified: 5.11.1996 / 22:01:14 / cg"
+    "Modified: 29.4.1997 / 21:56:24 / cg"
 !
 
 fileGet
@@ -3501,6 +3500,6 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.155 1997-04-29 19:10:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.156 1997-04-29 19:57:13 cg Exp $'
 ! !
 FileBrowser initialize!