Index: /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp
===================================================================
--- /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 5768)
+++ /trunk/ccl/compiler/PPC/PPC64/ppc64-arch.lisp	(revision 5769)
@@ -973,5 +973,5 @@
 
 (defppc64archmacro ccl::with-ffcall-results ((buf) &body body)
-  (let* ((size (+ (* 8 8) (* 31 8))))
+  (let* ((size (+ (* 8 8) (* 13 8))))
     `(ccl::%stack-block ((,buf ,size))
       ,@body)))