Index: /trunk/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 6027)
+++ /trunk/ccl/level-1/l1-clos-boot.lisp	(revision 6028)
@@ -560,9 +560,12 @@
            spec)))
 
-(defglobal *class-wrapper-random-state* (make-random-state))
-
-(defun new-class-wrapper-hash-index ()
-  ;; mustn't be 0
-  (the fixnum (1+ (the fixnum (random target::target-most-positive-fixnum *class-wrapper-random-state*)))))
+(let* ((class-wrapper-random-state (make-random-state))
+       (class-wrapper-random-state-lock (make-lock)))
+
+  (defun  new-class-wrapper-hash-index ()
+    ;; mustn't be 0
+    (with-lock-grabbed (class-wrapper-random-state-lock)
+      (the fixnum (1+ (the fixnum (random target::target-most-positive-fixnum class-wrapper-random-state)))))))
+
 
 (defun %inner-method-function (method)