diff --git a/ansi-tests/print-random-state.lsp b/ansi-tests/print-random-state.lsp
index 30a745999e13c9d589250d6bc993467f642dea2e..0b7f407b2722051ae638e735b1aba50874be8c02 100644
--- a/ansi-tests/print-random-state.lsp
+++ b/ansi-tests/print-random-state.lsp
@@ -9,6 +9,7 @@
 
 (deftest print.random-state.1
   (loop repeat 100
+	do (loop repeat 50 do (random 1000))
 	nconc
 	(let* ((rs1 (make-random-state *random-state*))
 	       (rs2 (with-standard-io-syntax