--- a/FileBrowser.st	Thu Sep 19 10:59:57 2002 +0200
+++ b/FileBrowser.st	Thu Sep 19 11:05:29 2002 +0200
@@ -502,7 +502,7 @@
     aFilenameArg isFilename ifTrue:[
         fileType := self fileTypeIconKeyFor:aFilename.
     ] ifFalse:[
-        fileType == #file
+        fileType := #file
     ].
 
     (fileType == #directory) ifFalse:[
@@ -8063,5 +8063,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.497 2002-09-19 08:59:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.498 2002-09-19 09:05:29 cg Exp $'
 ! !