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