Index: /trunk/ccl/lisp-kernel/ppc-gc.c
===================================================================
--- /trunk/ccl/lisp-kernel/ppc-gc.c	(revision 5123)
+++ /trunk/ccl/lisp-kernel/ppc-gc.c	(revision 5124)
@@ -814,5 +814,4 @@
     nbytes;
 
-#ifdef PPC
 #ifdef PPC64
   switch (fulltag_of(header)) {
@@ -849,5 +848,5 @@
   return ptr_from_lispobj(start+(~7 & (nbytes + 4 + 7)));
 #endif
-#endif
+
 
 
@@ -2910,5 +2909,9 @@
   switch(subtag) {
   case subtag_simple_base_string:
+#ifdef CHAR_SIZE_32
+    physbytes = node_size + (element_count << 2);
+#else
     physbytes = node_size + element_count;
+#endif
     break;