--- a/FileBrowser.st	Mon Nov 12 19:44:08 2001 +0100
+++ b/FileBrowser.st	Tue Nov 13 10:18:39 2001 +0100
@@ -2021,13 +2021,7 @@
                 "/ loading a binary class file
                 aStream := path readStream.
                 aStream notNil ifTrue:[
-                    bos := BinaryObjectStorage onOld:aStream.
-                    Class nameSpaceQuerySignal 
-                        answer:Smalltalk
-                        do:[
-                            bos next.
-                        ].
-                    bos close
+                    aStream fileInBinary.
                 ]
             ] ifFalse:[
                 ((path hasSuffix:'class')
@@ -2069,7 +2063,7 @@
     ]
 
     "Modified: / 19.9.1997 / 23:42:22 / stefan"
-    "Modified: / 16.10.1999 / 12:16:31 / cg"
+    "Modified: / 13.11.2001 / 10:13:10 / cg"
 !
 
 fileFindAllDuplicates
@@ -7435,5 +7429,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.433 2001-11-10 12:17:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.434 2001-11-13 09:18:39 cg Exp $'
 ! !