Index: /trunk/ccl/compiler/PPC/ppc2.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 5113)
+++ /trunk/ccl/compiler/PPC/ppc2.lisp	(revision 5114)
@@ -1345,4 +1345,5 @@
                            (not (or (eq type-keyword :signed-32-bit-vector)
                                     (eq type-keyword :fixnum-vector)
+                                    (eq type-keyword :simple-string)
                                     (eq type-keyword :single-float-vector)))))
                      (:ppc64
@@ -1385,4 +1386,6 @@
                                      (:fixnum-vector
                                       (! box-fixnum target temp))
+                                     (:simple-string
+                                      (! u32->char target temp))
                                      (t
                                       (ppc2-box-u32 seg target temp)))))))