diff --git a/ansi-tests/funcall.lsp b/ansi-tests/funcall.lsp
index 6fc7b33a4311a31854a71be9ce1dea2f41e27417..f94cc28051a91376429df2e81cdfa87199452e47 100644
--- a/ansi-tests/funcall.lsp
+++ b/ansi-tests/funcall.lsp
@@ -32,10 +32,12 @@
   (funcall #'(lambda (x y) (cons x y)) 'a 'b)
   (a . b))
 
+(defun xcons (x y) (cons x y))
+
 (deftest funcall.7
-  (flet ((cons (x y) (list y x)))
-    (values (funcall 'cons 1 2)
-	    (funcall #'cons 1 2)))
+  (flet ((xcons (x y) (list y x)))
+    (values (funcall 'xcons 1 2)
+	    (funcall #'xcons 1 2)))
   (1 . 2)
   (2 1))