diff --git a/ansi-tests/cons-test-25.lsp b/ansi-tests/cons-test-25.lsp
index 07c5c11cd6640f16febc5d4f05149a2bbc8415fe..f0c0f8ecffbd270ebda8c9d4ccc0a30596a18469 100644
--- a/ansi-tests/cons-test-25.lsp
+++ b/ansi-tests/cons-test-25.lsp
@@ -27,7 +27,7 @@
 	(eval `(deftest ,(intern
 			  (concatenate 'string
 			    (symbol-name fn)
-			    "-SET")
+			    "-SET-ALT")
 			  :cl-test)
 		   (let ((x (create-c*r-test ,level)))
 		     (and
@@ -47,7 +47,7 @@
        `(deftest ,(intern
 		   (concatenate 'string
 		     (symbol-name fn)
-		     "-SET")
+		     "-SET-ALT")
 		   :cl-test)
 	    (let ((x (make-list 20 :initial-element nil)))
 	      (and