Randomize the dispatch tag cache; don't copy the system state.

diff --git a/src/runtime/dispatch-tag.scm b/src/runtime/dispatch-tag.scm
index b34755ac3e2cc6021162841b4dd26c8f9a7cc179..5c514916f7e3ce181362bb8657e5d9e6bae107d5 100644 (file)
--- a/src/runtime/dispatch-tag.scm
+++ b/src/runtime/dispatch-tag.scm
@@ -104,7 +104,7 @@ USA.
         (int:quotient
          (let loop ((n 2)) (if (fix:fixnum? n) (loop (int:* n 2)) n))
          tag-cache-number-adds-ok))
-       (state (make-random-state)))
+       (state (make-random-state #t)))
     (lambda ()
       (random modulus state))))
 \f