diff --git a/testsuite/run-vm-tests.scm b/testsuite/run-vm-tests.scm
index f7eba40bb..39e7bf117 100644
--- a/testsuite/run-vm-tests.scm
+++ b/testsuite/run-vm-tests.scm
@@ -72,8 +72,7 @@ equal in the sense of @var{equal?}."
 		     (if (catch #t
 				(lambda ()
 				  (equal? (compile/run-test-from-file file)
-					  (eval (fetch-sexp-from-file file)
-						(interaction-environment))))
+					  (primitive-eval (fetch-sexp-from-file file))))
 				(lambda (key . args)
 				  (format #t "[~a/~a] " key args)
 				  #f))