diff --git a/ansi-tests/constantp.lsp b/ansi-tests/constantp.lsp
index 2bcfa9f832b8641df526d2e7680ddf3a9e3f2986..c9eb62e5cf8b296d04f4a3d4c383ed85fbd42a06 100644
--- a/ansi-tests/constantp.lsp
+++ b/ansi-tests/constantp.lsp
@@ -69,7 +69,7 @@
 (deftest constantp.11
   (macrolet ((macro-for-constantp.11 (y)
 	       (declare (ignore y))
-	       *standard-input*))
+	       '*standard-input*))
     (macrolet ((%m (&environment env)
 		 (if (constantp '(macro-for-constantp.11 0) env)
 		     :bad