diff --git a/test-suite/guile-test b/test-suite/guile-test
index 4a264b426..da1bcda25 100755
--- a/test-suite/guile-test
+++ b/test-suite/guile-test
@@ -246,7 +246,7 @@
                              tests))))
             (if (opt 'coverage #f)
                 (let-values (((coverage-data _)
-                              (with-code-coverage (the-vm) run-tests)))
+                              (with-code-coverage run-tests)))
                   (let ((out (open-output-file "guile.info")))
                     (coverage-data->lcov coverage-data out)
                     (close out)))