Index: /trunk/ccl/lisp-kernel/constants.h
===================================================================
--- /trunk/ccl/lisp-kernel/constants.h	(revision 468)
+++ /trunk/ccl/lisp-kernel/constants.h	(revision 469)
@@ -499,9 +499,10 @@
   unsigned tlb_limit;
   LispObj *tlb_pointer;
+  unsigned shutdown_count;
 } TCR;
 
 #define TCR_FLAG_BIT_FOREIGN fixnumshift
 #define TCR_FLAG_BIT_AWAITING_PRESET (fixnumshift+1)
-#define TCR_FLAG_BIT_SHUTDOWN_REQUEST (fixnumshift+2)
+#define TCR_FLAG_BIT_ALT_SUSPEND (fixnumshift+2)
 
 #define TCR_STATE_FOREIGN (1)
Index: /trunk/ccl/lisp-kernel/constants.s
===================================================================
--- /trunk/ccl/lisp-kernel/constants.s	(revision 468)
+++ /trunk/ccl/lisp-kernel/constants.s	(revision 469)
@@ -699,4 +699,5 @@
          _node(tlb_limit)
          _node(tlb_pointer)     /* Consider using tcr+N as tlb_pointer */
+	 _node(shutdown_count)
 	_ends