--- a/FileSelectionTree.st	Sat Oct 11 09:57:34 1997 +0200
+++ b/FileSelectionTree.st	Sat Oct 11 09:59:16 1997 +0200
@@ -403,6 +403,7 @@
 
     (anItemClass notNil and:[anItemClass ~~ itemClass]) ifTrue:[
         itemClass := anItemClass.
+        computeResources := true.
         self refetchDeviceResources.
 
         (directory := self directory) notNil ifTrue:[
@@ -640,5 +641,5 @@
 !FileSelectionTree class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.5 1997-09-04 12:15:45 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FileSelectionTree.st,v 1.6 1997-10-11 07:59:16 ca Exp $'
 ! !