--- a/DirectoryTreeBrowser.st	Tue Mar 06 16:38:30 2007 +0100
+++ b/DirectoryTreeBrowser.st	Tue Mar 06 16:39:01 2007 +0100
@@ -565,11 +565,11 @@
     selection := self selectedItems.
     filterBlock := self filterBlockHolder value.
     viewFiles := self viewFilesInDirectoryTree value.
+
     matchBlock := 
         [:fileName :isDir|
             (isDir 
-            or:[viewFiles
-                and:[filterBlock value:fileName baseName]])
+            or:[viewFiles and:[filterBlock value:fileName baseName]])
         ].
     list matchBlock:matchBlock.
 !
@@ -1342,5 +1342,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.105 2007-01-12 17:41:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.106 2007-03-06 15:39:01 cg Exp $'
 ! !