diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp
index 40f213b2be88d03b0ced83ef8f9d5de3c7c9db7c..f07d1bdee0d67915e68ecd8a80bddbb934e7df97 100644
--- a/ansi-tests/random-int-form.lsp
+++ b/ansi-tests/random-int-form.lsp
@@ -1303,6 +1303,13 @@
        (random-from-interval (1+ most-positive-fixnum) most-negative-fixnum))
       ((complex)
        (make-random-element-of-type '(complex real)))
+      ((cons)
+       (make-random-element-of-type '(cons t t)))
+      ((list)
+       (let ((len (min (random 10) (random 10))))
+	 (loop repeat len collect (make-random-element-of-type t))))
+      ((sequence)
+       (make-random-element-of-type '(or list vector)))
       ))))
 
 (defun make-random-character ()