Index: /trunk/ccl/compiler/PPC/ppc2.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 5101)
+++ /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 5102)
@@ -5737,5 +5737,5 @@
       (ensuring-node-target (target vreg)
         (with-imm-target () (dest :u8)
-          (! u8->char target (let* ((*ppc2-reckless* t))
+          (! u32->char target (let* ((*ppc2-reckless* t))
                                (ppc2-one-untargeted-reg-form seg c dest)))))
       (^))))