file-trees can't browse files

diff --git a/extra/file-trees/file-trees.factor b/extra/file-trees/file-trees.factor
index 90916baa5609e14531206e979ef1800413347412..77952c8425a15d363803d7f19b7d6a021fd38ba1 100644 (file)
--- a/extra/file-trees/file-trees.factor
+++ b/extra/file-trees/file-trees.factor
@@ -36,5 +36,5 @@ DEFER: (tree-insert)
 
 : <dir-table> ( tree-model -- table )
    <frp-list*> [ node>> 1array ] >>quot
-   [ selected-value>> <switch> ]
+   [ selected-value>> [ file? not ] <filter> <switch> ]
    [ swap >>model ] bi ;
\ No newline at end of file