Index: /trunk/ccl/lib/ffi-darwinppc64.lisp
===================================================================
--- /trunk/ccl/lib/ffi-darwinppc64.lisp	(revision 5855)
+++ /trunk/ccl/lib/ffi-darwinppc64.lisp	(revision 5856)
@@ -334,5 +334,5 @@
                   (%stack-block ((,regbuf (+ (* 8 8) (* 8 13))))
                     ,call
-                    ,(darwin64::struct-from-regbuf-values result-temp struct-result-type regbuf)))
+                    ,@(darwin64::struct-from-regbuf-values result-temp struct-result-type regbuf)))
                 call))))))))