Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 253)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 254)
@@ -652,5 +652,5 @@
     (if pos (* (1+ pos) symbol.size))))
 
-(defconstant nil-value (+ #x2000 symbol.size fulltag-vector))
+(defconstant nil-value (+ #x2000 symbol.size fulltag-uvector))