eval: don't with-file-vocabs in (eval-with-stack>string)

diff --git a/basis/eval/eval.factor b/basis/eval/eval.factor
index 9256454863edf55913a0e487c3cee34b0e4291f3..1accb66c994c0ff0b6e65e180270095a3c27c8dc 100644 (file)
--- a/basis/eval/eval.factor
+++ b/basis/eval/eval.factor
@@ -35,7 +35,7 @@ SYNTAX: eval( \ eval parse-call-paren ;
 : (eval-with-stack>string) ( str -- output )
     [
         parser-quiet? on
-        [ eval-with-stack ] [ nip print-error ] recover
+        [ (eval-with-stack) ] [ nip print-error ] recover
     ] with-string-writer ;
 
 : eval-with-stack>string ( str -- output )