--- a/DirectoryTreeBrowser.st	Wed Oct 28 17:47:09 2009 +0100
+++ b/DirectoryTreeBrowser.st	Wed Oct 28 17:47:24 2009 +0100
@@ -409,6 +409,8 @@
         selectedDirectoryModel
         rootHolder
         filterModel
+        showFiles
+        showHiddenFiles
       ).
 ! !
 
@@ -574,7 +576,7 @@
             show := self showHiddenFiles value or:[fileName isHidden not].
             show
                 and:[ isDir 
-                      or:[viewFiles and:[filterBlock value:fileName baseName]]]
+                      or:[viewFiles and:[filterBlock value:fileName value:fileName baseName]]]
         ].
     list matchBlock:matchBlock.
 !
@@ -1335,9 +1337,9 @@
 !DirectoryTreeBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.111 2009-10-28 15:39:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.112 2009-10-28 16:47:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.111 2009-10-28 15:39:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.112 2009-10-28 16:47:24 cg Exp $'
 ! !