diff --git a/ansi-tests/print-random-state.lsp b/ansi-tests/print-random-state.lsp
index 79fc8cbac2c3e3544582612b41c3fab4e31d27c2..30a745999e13c9d589250d6bc993467f642dea2e 100644
--- a/ansi-tests/print-random-state.lsp
+++ b/ansi-tests/print-random-state.lsp
@@ -8,11 +8,13 @@
 (compile-and-load "printer-aux.lsp")
 
 (deftest print.random-state.1
-  (let* ((rs1 *random-state*)
-	 (rs2 (with-standard-io-syntax
-	       (read-from-string
-		(write-to-string rs1 :readably t)))))
-    (values
-     (notnot (random-state-p rs2))
-     (is-similar rs1 rs2)))
-  t t)
+  (loop repeat 100
+	nconc
+	(let* ((rs1 (make-random-state *random-state*))
+	       (rs2 (with-standard-io-syntax
+		     (read-from-string
+		      (write-to-string rs1 :readably t))))
+	       (result (list (notnot (random-state-p rs2))
+			     (is-similar rs1 rs2))))
+	  (unless (equal result '(t t)) (list result rs1 rs2))))
+  nil)