diff --git a/test-suite/tests/peval.test b/test-suite/tests/peval.test
index 366d5186e..76fa271fd 100644
--- a/test-suite/tests/peval.test
+++ b/test-suite/tests/peval.test
@@ -23,15 +23,12 @@
   #:use-module (system base pmatch)
   #:use-module (system base message)
   #:use-module (language tree-il)
-  #:use-module (language tree-il primitives)
   #:use-module (language tree-il fix-letrec)
+  #:use-module (language tree-il peval)
+  #:use-module (language tree-il primitives)
   #:use-module (rnrs bytevectors) ;; for the bytevector primitives
   #:use-module (srfi srfi-13))
 
-(define peval
-  ;; The partial evaluator.
-  (@@ (language tree-il optimize) peval))
-
 (define-syntax pass-if-peval
   (syntax-rules ()
     ((_ in pat)