Index: /branches/working-0711/ccl/level-1/l1-aprims.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-aprims.lisp	(revision 7943)
+++ /branches/working-0711/ccl/level-1/l1-aprims.lisp	(revision 7944)
@@ -49,5 +49,6 @@
 (def-standard-initial-binding *locks-pending* ())
 (def-standard-initial-binding *lock-conses* (make-list 20)))
-
+(def-standard-initial-binding *whostate* "Reset")
+(setq *whostate* "Active")
 
 (defun %badarg (arg type)