diff --git a/ansi-tests/cons-test-04.lsp b/ansi-tests/cons-test-04.lsp
index 0053f0dd9a23858da5f705136c04876e1cbc4ff1..7162c8409e225d064d518eddc7566048a27ef254 100644
--- a/ansi-tests/cons-test-04.lsp
+++ b/ansi-tests/cons-test-04.lsp
@@ -410,3 +410,8 @@
 (deftest adjoin.error.9
   (classify-error (adjoin 'a '(b c) :key #'cons))
   program-error)
+
+(deftest adjoin.error.10
+  (classify-error (adjoin 'a (list* 'b 'c 'd)))
+  type-error)
+
diff --git a/ansi-tests/cons-test-18.lsp b/ansi-tests/cons-test-18.lsp
index 46526b259e64b2fe06451532c2422557a38eae57..771dd9d508ed22239ab77bcb150e01ea69b098c9 100644
--- a/ansi-tests/cons-test-18.lsp
+++ b/ansi-tests/cons-test-18.lsp
@@ -79,15 +79,15 @@
   program-error)
 
 (deftest get-properties.error.4
-  (classify-error (get-properties '(a 1 b 2 c 3) '(a . b)))
+  (classify-error (get-properties '(a 1 b 2 c 3) '(x . y)))
   type-error)
 
 (deftest get-properties.error.5
-  (classify-error (get-properties '(a 1 b 2 c 3 . d) '(a z)))
+  (classify-error (get-properties '(a 1 b 2 c 3 . d) '(x y)))
   type-error)
 
 (deftest get-properties.error.6
-  (classify-error (get-properties '(a 1 b 2 c . d) '(a z)))
+  (classify-error (get-properties '(a 1 b 2 c . d) '(x y)))
   type-error)
 
 	   
diff --git a/ansi-tests/cons-test-24.lsp b/ansi-tests/cons-test-24.lsp
index a010e17db4f6d8eeef7cbd5bf8374204f7e05de6..8d0ed9c62f93302a94c72ae068ac10a0413a0ab6 100644
--- a/ansi-tests/cons-test-24.lsp
+++ b/ansi-tests/cons-test-24.lsp
@@ -254,5 +254,5 @@
   type-error)
 
 (deftest subsetp.error.12
-  (classify-error (subsetp (list* 1 2 3) (list 4 5 6)))
+  (classify-error (subsetp (list* 1 2 3) (list 1 2 3 4 5 6)))
   type-error)