Index: /trunk/ccl/level-1/l1-aprims.lisp
===================================================================
--- /trunk/ccl/level-1/l1-aprims.lisp	(revision 6025)
+++ /trunk/ccl/level-1/l1-aprims.lisp	(revision 6026)
@@ -43,4 +43,6 @@
 (def-standard-initial-binding *package*)
 (def-standard-initial-binding *gensym-counter* 0)
+(def-standard-initial-binding *random-state* (initialize-random-state #xFBF1 9))
+
 
 (defun %badarg (arg type)