Index: /trunk/ccl/lib/ffi-linuxppc64.lisp
===================================================================
--- /trunk/ccl/lib/ffi-linuxppc64.lisp	(revision 5809)
+++ /trunk/ccl/lib/ffi-linuxppc64.lisp	(revision 5810)
@@ -109,5 +109,5 @@
                  (bits (ensure-foreign-type-bits argtype)))
             (if (and (typep argtype 'foreign-record-type)
-                     (< bits 63))
+                     (< bits 64))
               (progn
                 (rlets (list name (foreign-record-type-name argtype)))
@@ -140,4 +140,7 @@
                                (typep argtype 'foreign-array-type))
                            '%get-ptr)
+                          ((typep argtype 'foreign-record-type)
+                           (setq delta (* (ceiling bits 64) 8))
+                           '%inc-ptr)
                           (t
                            (cond ((typep argtype 'foreign-integer-type)