--- a/FileBrowser.st	Mon Oct 14 21:24:49 1996 +0200
+++ b/FileBrowser.st	Mon Oct 14 22:20:06 1996 +0200
@@ -22,7 +22,7 @@
 	category:'Interface-Browsers'
 !
 
-!FileBrowser  class methodsFor:'documentation'!
+!FileBrowser class methodsFor:'documentation'!
 
 copyright
 "
@@ -75,7 +75,7 @@
 "
 ! !
 
-!FileBrowser  class methodsFor:'instance creation'!
+!FileBrowser class methodsFor:'instance creation'!
 
 openOn:aDirectoryPath
     "start a new FileBrowser in a pathname"
@@ -108,7 +108,7 @@
     "
 ! !
 
-!FileBrowser  class methodsFor:'defaults'!
+!FileBrowser class methodsFor:'defaults'!
 
 defaultIcon
     DefaultIcon isNil ifTrue:[
@@ -276,8 +276,11 @@
                     aStream := FileStream readonlyFileNamed:fileName in:currentDirectory.
                     aStream notNil ifTrue:[
                         bos := BinaryObjectStorage onOld:aStream.
-                        bos classEnvironment:Smalltalk.
-                        bos next.
+                        Class nameSpaceQuerySignal 
+                            answer:Smalltalk
+                            do:[
+                                bos next.
+                            ].
                         bos close
                     ]
                 ] ifFalse:[
@@ -310,7 +313,7 @@
         ]
     ]
 
-    "Modified: 8.10.1996 / 18:01:34 / cg"
+    "Modified: 14.10.1996 / 21:09:56 / cg"
 !
 
 fileGet
@@ -2649,8 +2652,8 @@
     ^ currentDirectory pathName
 ! !
 
-!FileBrowser  class methodsFor:'documentation'!
+!FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.98 1996-10-08 20:02:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.99 1996-10-14 20:20:06 cg Exp $'
 ! !