cleanup some uses of current-directory.

[factor.git] / extra / tools / tree / tree.factor

diff --git a/extra/tools/tree/tree.factor b/extra/tools/tree/tree.factor
index b94af10b66b746b1d6c2c4bf5f07ad42b045f85e..3e87b80f9adb7741cb702f0ff2511a1c2bf1e7d8 100644 (file)
--- a/extra/tools/tree/tree.factor
+++ b/extra/tools/tree/tree.factor
@@ -52,7 +52,7 @@ DEFER: write-tree
 
 : run-tree ( -- )
     command-line get [
-        current-directory get tree
+        "." tree
     ] [
         [ tree ] each
     ] if-empty ;