--- a/FileBrowser.st	Fri Sep 19 01:05:13 1997 +0200
+++ b/FileBrowser.st	Sat Sep 20 00:53:14 1997 +0200
@@ -496,7 +496,7 @@
                     Class addInfoRecord:('fileIn ' , fileName) 
                 ]
             ] ifFalse:[
-                (fileName hasSuffix:'cls') ifTrue:[
+                (path hasSuffix:'cls') ifTrue:[
                     aStream := path readStream.
                     aStream notNil ifTrue:[
                         bos := BinaryObjectStorage onOld:aStream.
@@ -537,7 +537,7 @@
     ]
 
     "Modified: 29.4.1997 / 21:56:24 / cg"
-    "Modified: 18.9.1997 / 16:25:43 / stefan"
+    "Modified: 19.9.1997 / 23:42:22 / stefan"
 !
 
 fileGet
@@ -3799,5 +3799,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.191 1997-09-18 23:05:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.192 1997-09-19 22:53:14 stefan Exp $'
 ! !