--- a/DirectoryTreeBrowser.st	Tue Apr 01 16:58:28 2003 +0200
+++ b/DirectoryTreeBrowser.st	Tue Apr 01 16:58:39 2003 +0200
@@ -483,11 +483,12 @@
     selection := self selectedItems.
     filterBlock := self filterBlockHolder value.
     viewFiles := self viewFilesInDirectoryTree value.
-    matchBlock := [:fileName :isDir|
-        (isDir 
-        or:[viewFiles
-            and:[filterBlock value:fileName baseName]])
-    ].
+    matchBlock := 
+        [:fileName :isDir|
+            (isDir 
+            or:[viewFiles
+                and:[filterBlock value:fileName baseName]])
+        ].
     list matchBlock:matchBlock.
 !
 
@@ -1241,5 +1242,5 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.56 2003-03-30 13:07:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.57 2003-04-01 14:58:39 cg Exp $'
 ! !