diff --git a/ansi-tests/random-int-form.lsp b/ansi-tests/random-int-form.lsp
index ce9bc3c68df1f21bcc8c243c9c0b397704ccdf4f..a30d1a9fd68f9a0477263f4ab571ee6baff3fe12 100644
--- a/ansi-tests/random-int-form.lsp
+++ b/ansi-tests/random-int-form.lsp
@@ -303,7 +303,6 @@
        (return form)))))
 
 (defun prune-results (result-list)
-  (assert result-list)
   (loop for result in result-list
 	collect
 	(let ((form (getf result :form))