diff --git a/extra/file-trees/file-trees.factor b/extra/file-trees/file-trees.factor
index 90916baa56..77952c8425 100644
--- 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