diff --git a/tests/quotation.scm b/tests/quotation.scm
index 3d14d1a29..d51e94d87 100644
--- a/tests/quotation.scm
+++ b/tests/quotation.scm
@@ -156,7 +156,7 @@
 
         (define (foo x) x)
 
-        (t.is (eval (cadr (bar))) '(list 1 2 3))))
+        (t.is (eval (cadr (bar)) (current-environment)) '(list 1 2 3))))
 
 (let ((fun (lambda (a b)
           (if (number? a)