Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 5115)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 5116)
@@ -218,5 +218,5 @@
 (define-cl-array-subtag single-float-vector ivector-class-32-bit 3)
 #-target-8-bit-chars
-(define-cl-array-subtag xsimple-base-string ivector-class-32-bit 5)
+(define-cl-array-subtag simple-base-string ivector-class-32-bit 5)
 (define-cl-array-subtag s16-vector ivector-class-other-bit 1)
 (define-cl-array-subtag u16-vector ivector-class-other-bit 2)