Use a fresh random state for randomized tests.

diff --git a/tests/runtime/test-random.scm b/tests/runtime/test-random.scm
index af5640f0a2511f442e0171b13c91fdc101be95ac..d68aa828661ff5854c2dba66e9d1d29ba85e9a47 100644 (file)
--- a/tests/runtime/test-random.scm
+++ b/tests/runtime/test-random.scm
@@ -56,7 +56,7 @@ USA.
     (lambda ()
       ;; XXX Should make the seed more compact than just the original
       ;; complete state.
-      (let ((state (make-random-state)))
+      (let ((state (make-random-state #t)))
        (with-test-properties
            (lambda ()
              ;; Ensure we don't accidentally use the global state.