Index: /trunk/ccl/level-1/l1-lisp-threads.lisp
===================================================================
--- /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 211)
+++ /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 212)
@@ -417,5 +417,5 @@
   (or (null tcr)
       (eql tcr 0)
-      (unless (logbitp ppc32::tcr-flag-bit-awaiting-preset
+      (unless (logbitp arch::tcr-flag-bit-awaiting-preset
 		       (the fixnum (tcr-flags tcr)))
 	(let* ((vs-area (%fixnum-ref tcr ppc32::tcr.vs-area)))
@@ -491,5 +491,5 @@
   (let* ((flags (%fixnum-ref tcr ppc32::tcr.flags)))
     (declare (fixnum flags))
-    (if (logbitp ppc32::tcr-flag-bit-awaiting-preset flags)
+    (if (logbitp arch::tcr-flag-bit-awaiting-preset flags)
       (thread-change-state thread :run :reset)
       (progn
@@ -534,5 +534,5 @@
     (declare (fixnum flags))
     (setf (%fixnum-ref tcr ppc32::tcr.flags)
-	  (bitclr ppc32::tcr-flag-bit-awaiting-preset flags))))
+	  (bitclr arch::tcr-flag-bit-awaiting-preset flags))))
 
 (defun tcr-set-preset-state (tcr)
@@ -540,5 +540,5 @@
     (declare (fixnum flags))
     (setf (%fixnum-ref tcr ppc32::tcr.flags)
-	  (bitset ppc32::tcr-flag-bit-awaiting-preset flags))))  
+	  (bitset arch::tcr-flag-bit-awaiting-preset flags))))  
 
 (defun %activate-tcr (tcr)