diff --git a/extra/tools/test/test.factor b/extra/tools/test/test.factor
index 62a4dab1eb..5c5d397df7 100755
--- a/extra/tools/test/test.factor
+++ b/extra/tools/test/test.factor
@@ -54,11 +54,9 @@ SYMBOL: this-test
 : (run-test) ( vocab -- )
     dup vocab-source-loaded? [
         [ "temporary" forget-vocab ] with-compilation-unit
-        vocab-tests dup [ run-file ] each
-        [
-            dup [ forget-source ] each
-            "temporary" forget-vocab
-        ] with-compilation-unit
+        vocab-tests
+        dup [ forget-source ] each
+        dup [ run-file ] each
     ] when drop ;
 
 : run-test ( vocab -- failures )