Index: /trunk/ccl/level-0/PPC/ppc-array.lisp
===================================================================
--- /trunk/ccl/level-0/PPC/ppc-array.lisp	(revision 5131)
+++ /trunk/ccl/level-0/PPC/ppc-array.lisp	(revision 5132)
@@ -302,5 +302,5 @@
   (cmpdi cr0 imm2 ppc64::subtag-single-float-vector)
   #-target-8-bit-chars
-  (beq c33 @char32)
+  (beq cr3 @char32)
   (beq cr2 @s32)
   (bne cr0 @u32)