Index: /trunk/ccl/compiler/X86/X8664/x8664-backend.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-backend.lisp	(revision 5751)
+++ /trunk/ccl/compiler/X86/X8664/x8664-backend.lisp	(revision 5752)
@@ -270,6 +270,5 @@
                                         :struct-by-value t)
                           :ff-call-expand-function
-                          'x86-linux64::expand-ff-call
-                          :))
+                          (intern "EXPAND-FF-CALL" "X86-LINUX64")))
                 (:darwinx8664
                   (make-ftd :interface-db-directory "ccl:darwin-x86-headers64;"
@@ -280,5 +279,5 @@
                                         :prepend-underscore t)
                           :ff-call-expand-function
-                          'x86-darwin64::expand-ff-call))
+                          (intern "EXPAND-FF-CALL" "X86-DARWIN64")))
                  (:freebsdx8664
                   (make-ftd :interface-db-directory "ccl:freebsd-headers64;"
@@ -287,5 +286,5 @@
                                           :struct-by-value t)
                           :ff-call-expand-function
-                          'x86-freebsd64::expand-ff-call)))))
+                          (intern "EXPAND-FF-CALL" "X86-FREEBSD64"))))))
         (install-standard-foreign-types ftd)
     (use-interface-dir :libc ftd)