Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5379)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-vinsns.lisp	(revision 5380)
@@ -1178,10 +1178,10 @@
   (slwi dest src (- ppc32::nbits-in-word (+ 8 ppc32::fixnumshift)))
   (srawi dest dest (- ppc32::nbits-in-word 8))
-  (slwi dest src ppc32::fixnumshift)
+  (slwi dest dest ppc32::fixnumshift)
   (cmpw crf dest src)
   (srawi dest src ppc32::fixnumshift)
   (beq+ crf :got-it)
   :bad
-  (uuo_interr arch::error-object-not-signed-byte-16 src)
+  (uuo_interr arch::error-object-not-signed-byte-8 src)
   :got-it)