diff --git a/ansi-tests/cons-test-15.lsp b/ansi-tests/cons-test-15.lsp
index 5f4632d88499801fdd62c0417d60f23ccf2470f9..4ef9ce2b6ac6f8a627d1a47c416405dd1ad927c0 100644
--- a/ansi-tests/cons-test-15.lsp
+++ b/ansi-tests/cons-test-15.lsp
@@ -64,7 +64,7 @@
 	   *mapc.6-var*)))
   (h g f e d c b a))
 
-(deftest mapc.7
+(deftest mapc.order.1
   (let ((i 0) x y z)
     (values
      (mapc (progn (setf x (incf i))
@@ -155,7 +155,7 @@
 	   (list *mapc.6-var* result))))
  ((h g f e d c b a) (a b c d e f g h)))
 
-(deftest mapcar.7
+(deftest mapcar.order.1
   (let ((i 0) x y z)
     (values
      (mapcar (progn (setf x (incf i))
@@ -231,7 +231,7 @@
     (mapcan 'mapcan.6-fun (copy-list '(a b c d))))
   (a b a c b a d c b a))
 
-(deftest mapcan.7
+(deftest mapcan.order.1
   (let ((i 0) x y z)
     (values
      (mapcan (progn (setf x (incf i))
@@ -363,7 +363,7 @@
   ((d 4) (c 3) (d 4) (b 2) (c 3) (d 4)
    (a 1) (b 2) (c 3) (d 4)))
 
-(deftest mapl.6
+(deftest mapl.order.1
   (let ((i 0) x y z)
     (values
      (mapl (progn
@@ -468,7 +468,7 @@
 	   )
   (a c c e e g g))
 
-(deftest maplist.8
+(deftest maplist.order.1
   (let ((i 0) x y z)
     (values
      (maplist
@@ -548,7 +548,7 @@
   (mapcon (constantly 1) (list 'a))
   1)
 
-(deftest mapcon.5
+(deftest mapcon.order.1
   (let ((i 0) x y z)
     (values
      (mapcon (progn (setf x (incf i))