Index: /trunk/ccl/level-1/l1-lisp-threads.lisp
===================================================================
--- /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 690)
+++ /trunk/ccl/level-1/l1-lisp-threads.lisp	(revision 691)
@@ -192,5 +192,5 @@
   (ash (- (%fixnum-ref area ppc32::area.high)
 	  (%fixnum-ref area ppc32::area.softlimit))
-       2))
+       target::fixnum-shift))
 
 (defun %cons-lisp-thread (name &optional tcr)
@@ -262,5 +262,5 @@
     (let* ((tcr (lisp-thread.tcr thread)))
       (if (and tcr (not (eql 0 tcr)))
-	(format stream " [tcr @ #x~x]" (ash tcr ppc32::fixnumshift))))))
+	(format stream " [tcr @ #x~x]" (ash tcr target::fixnumshift))))))
 
 
@@ -320,13 +320,11 @@
 
 (defun new-tcr (cs-size vs-size ts-size)
-  (ash
-   (%ptr-to-int
-    (ff-call
-     (%kernel-import ppc32::kernel-import-newthread)
+  (macptr->fixnum
+   (ff-call
+    (%kernel-import ppc32::kernel-import-newthread)
      :unsigned-fullword cs-size
      :unsigned-fullword vs-size
      :unsigned-fullword ts-size
-     :address))
-   -2))
+     :address)))
 
 (defun new-thread (name cstack-size vstack-size tstack-size)