diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp
index fb4ba4ecfbc04c7c11e8baf6f6106d945bde67dd..010490823a731e27063ae272147ac70809f67ae5 100644
--- a/ansi-tests/random-int-form.lsp
+++ b/ansi-tests/random-int-form.lsp
@@ -1211,7 +1211,10 @@
 		     (eq (cadr args) ':initial-element)
 		     ; (null (cdddr args))
 		     )
-	    (prune (caddr args) #'(lambda (form) (try `(make-array nil :initial-element ,form . ,(cdddr args)))))))
+	    (prune (caddr args) #'(lambda (form) (try `(make-array nil :initial-element ,form . ,(cdddr args)))))
+	    (when (cdddr args)
+	      (try `(make-array nil :initial-element ,(caddr args))))
+	    ))
 
 	 ((cons)
 	  (prune-fn form try-fn))