Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 390)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 391)
@@ -473,7 +473,6 @@
   prev					; in doubly-linked list 
   next					; in doubly-linked list
-  single-float-convert			; per-tread scratch space.
+  single-float-convert			; per-thread scratch space.
   lisp-fpscr-high
-  lisp-fpscr-low
   db-link				; special binding chain head 
   catch-top				; top catch frame 
@@ -513,4 +512,6 @@
   tlb-pointer
 )
+
+(defconstant lisp-fpscr-high (+ lisp-fpscr-high 4))
 
 (define-storage-layout lockptr 0