diff --git a/ansi-tests/values-list.lsp b/ansi-tests/values-list.lsp
index f48e9245fdd76a4a39989053fade332e6e99449f..dd7f8b41abf110f279a3a04c340f4904e090cbba 100644
--- a/ansi-tests/values-list.lsp
+++ b/ansi-tests/values-list.lsp
@@ -13,6 +13,14 @@
   (classify-error (values-list nil nil))
   program-error)
 
+(deftest values-list.error.3
+  (classify-error (values-list 'a))
+  type-error)
+
+(deftest values-list.error.4
+  (classify-error (values-list '(a b c . d)))
+  type-error)
+
 (deftest values-list.1
   (values-list nil))