Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5256)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5257)
@@ -3560,5 +3560,5 @@
 
 (define-ppc32-vinsn load-character-constant (((dest :lisp))
-                                             ((code :u8const)))
+                                             ((code :u32const)))
   (ori dest ppc::rzero (:apply logior (:apply ash (:apply logand #xff code) ppc32::charcode-shift) ppc32::subtag-character))
   ((:not (:pred = 0 (:apply ldb (byte 16 8) code)))
Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 5256)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-vinsns.lisp	(revision 5257)
@@ -3543,5 +3543,5 @@
 
 (define-ppc64-vinsn load-character-constant (((dest :lisp))
-                                             ((code :u8const))
+                                             ((code :u32const))
                                              ())
   (ori dest ppc::rzero (:apply logior (:apply ash (:apply logand #xff code) 8) ppc64::subtag-character))