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