Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp	(revision 5714)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp	(revision 5715)
@@ -421,5 +421,11 @@
                  :poweropen-alignment t)
                #+linuxppc-target
-               '(:bits-per-word 32))))
+               '(:bits-per-word 32)
+               :ff-call-expand-function
+               #+linuxppc-target
+               'ppc32::linux-expand-ff-call
+               #+darwinppc-target
+               'ppc32::darwin-expand-ff-call
+               )))
     (install-standard-foreign-types ftd)
     (use-interface-dir :libc ftd)