diff --git a/ansi-tests/acosh.lsp b/ansi-tests/acosh.lsp
index 4173b926c3e542ba56a6a179fae7514e7c2decb4..4c59d3eda3a9f7ddcd1cf77fa113a062dd20d593 100644
--- a/ansi-tests/acosh.lsp
+++ b/ansi-tests/acosh.lsp
@@ -65,7 +65,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/asinh.lsp b/ansi-tests/asinh.lsp
index 8749f8849b1a50982b33657a3507911f885172c4..f5f77c8aa70c07a92aac663802cf42d7b3835af0 100644
--- a/ansi-tests/asinh.lsp
+++ b/ansi-tests/asinh.lsp
@@ -63,7 +63,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/atanh.lsp b/ansi-tests/atanh.lsp
index c0f3e95d05634a26b999f970f68de06260671928..08686c158bd65397ae3cf4fddecfe70866cf0c86 100644
--- a/ansi-tests/atanh.lsp
+++ b/ansi-tests/atanh.lsp
@@ -77,7 +77,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 rlist)))
   nil)
 
 (deftest atanh.7
@@ -90,7 +90,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 rlist)))
   nil)
 
 
diff --git a/ansi-tests/cosh.lsp b/ansi-tests/cosh.lsp
index 4a67c95fc71412acc5528d722175bb89f4522e13..10fb651302ee0a153b69dfbd5c2e5c59aa1890e7 100644
--- a/ansi-tests/cosh.lsp
+++ b/ansi-tests/cosh.lsp
@@ -65,7 +65,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/log.lsp b/ansi-tests/log.lsp
index 8e2ec8507c26087051b7d53a4d1156bf361fd25d..243014576e6ff8b2c702e130b005d0bc1eda342f 100644
--- a/ansi-tests/log.lsp
+++ b/ansi-tests/log.lsp
@@ -78,7 +78,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 (deftest log.8
@@ -92,7 +92,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/sinh.lsp b/ansi-tests/sinh.lsp
index 28d89dadbb82cb1ee73c79e70643c491b6d557b8..5efa0f85beabe3b868ff29c998ac22d00b435779 100644
--- a/ansi-tests/sinh.lsp
+++ b/ansi-tests/sinh.lsp
@@ -63,7 +63,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME
diff --git a/ansi-tests/tanh.lsp b/ansi-tests/tanh.lsp
index b9fa3e7eb23d7a2496f3d8e5d4d90739f6f6f201..5b1479276500895bbdb0318eca7c4cb926783a5f 100644
--- a/ansi-tests/tanh.lsp
+++ b/ansi-tests/tanh.lsp
@@ -63,7 +63,7 @@
 	 repeat 1000
 	 unless (and (null (cdr rlist))
 		     (typep y `(complex ,type)))
-	 collect (list x rlist)))
+	 collect (list x1 x2 rlist)))
   nil)
 
 ;;; FIXME