Index: /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp	(revision 5748)
+++ /trunk/ccl/compiler/PPC/PPC32/ppc32-backend.lisp	(revision 5749)
@@ -371,6 +371,6 @@
 		:target-fasl-pathname (make-pathname :type "dfsl")
 		:target-platform (logior platform-word-size-32
-                                             platform-cpu-ppc
-                                             platform-os-darwin)
+                                         platform-cpu-ppc
+                                         platform-os-darwin)
 		:target-os :darwinppc
 		:name :darwinppc32
@@ -424,7 +424,7 @@
                :ff-call-expand-function
                #+linuxppc-target
-               'ppc32::linux-expand-ff-call
+               'linux32::expand-ff-call
                #+darwinppc-target
-               'ppc32::darwin-expand-ff-call
+               'darwin32::expand-ff-call
                )))
     (install-standard-foreign-types ftd)
Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp	(revision 5748)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-backend.lisp	(revision 5749)
@@ -279,7 +279,7 @@
                :ff-call-expand-function
                #+linuxppc-target
-               'ppc64::linux-expand-ff-call
+               'linux64::expand-ff-call
                #+darwinppc-target
-               'ppc64::darwin-expand-ff-call
+               'darwin64::expand-ff-call
                )))
     (install-standard-foreign-types ftd)