diff --git a/tests/pcl.lisp b/tests/pcl.lisp
index fe4402b9ba6815b96ee20a1b48e7d4fa2715bebc..218fead8739a6d8fe1ea0534091027c7a17a4802 100644
--- a/tests/pcl.lisp
+++ b/tests/pcl.lisp
@@ -1007,7 +1007,7 @@
 ;;; macro won't be used in them.  Also, we want tests using
 ;;; both the optimized constructor functions, and the default.
 
-(eval-when (:top-level :compile :execute)
+(eval-when (:load-toplevel :compile-toplevel :execute)
 (defmacro define-mi-test (name form &key values opt-values)
   (let ((optimized-name
 	 (let ((*print-case* :upcase)