Index: /trunk/ccl/compiler/X86/X8664/x8664-backend.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-backend.lisp	(revision 5750)
+++ /trunk/ccl/compiler/X86/X8664/x8664-backend.lisp	(revision 5751)
@@ -268,5 +268,8 @@
                           :interface-package-name "X86-LINUX64"
                           :attributes '(:bits-per-word  64
-                                        :struct-by-value t)))
+                                        :struct-by-value t)
+                          :ff-call-expand-function
+                          'x86-linux64::expand-ff-call
+                          :))
                 (:darwinx8664
                   (make-ftd :interface-db-directory "ccl:darwin-x86-headers64;"
@@ -275,10 +278,14 @@
                                         :signed-char t
                                         :struct-by-value t
-                                        :prepend-underscore t)))
+                                        :prepend-underscore t)
+                          :ff-call-expand-function
+                          'x86-darwin64::expand-ff-call))
                  (:freebsdx8664
                   (make-ftd :interface-db-directory "ccl:freebsd-headers64;"
                             :interface-package-name "X86-FREEBSD64"
                             :attributes '(:bits-per-word  64
-                                          :struct-by-value t))))))
+                                          :struct-by-value t)
+                          :ff-call-expand-function
+                          'x86-freebsd64::expand-ff-call)))))
         (install-standard-foreign-types ftd)
     (use-interface-dir :libc ftd)