Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5114)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5115)
@@ -878,5 +878,5 @@
   (clrlwi. tag object (- ppc32::nbits-in-word ppc32::nlisptagbits))
   (lis tag (ash #x110000 -16))
-  (cmplwi crf1 object tag)
+  (cmplw crf1 object tag)
   (bne crf0 :bad)
   (blt+ crf1 :got-it)
Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 5114)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 5115)
@@ -969,5 +969,5 @@
   (clrldi. tag object (- ppc64::nbits-in-word ppc64::nlisptagbits))
   (lis tag (ash #x110000 -16))
-  (cmpldi crf1 object tag)
+  (cmpld crf1 object tag)
   (bne crf0 :bad)
   (blt+ crf1 :got-it)