Index: /trunk/ccl/compiler/optimizers.lisp
===================================================================
--- /trunk/ccl/compiler/optimizers.lisp	(revision 387)
+++ /trunk/ccl/compiler/optimizers.lisp	(revision 388)
@@ -1548,5 +1548,10 @@
           (= ,typecode ppc32::subtag-bignum)))))
        
-
+(define-compiler-macro %composite-pointer-ref (size pointer offset)
+  (if (constantp size)
+    `(%inc-ptr ,pointer ,offset)
+    `(progn
+      ,size
+      (%inc-ptr ,pointer ,offset))))
 
 (provide "OPTIMIZERS")