Index: /trunk/ccl/level-0/PPC/ppc-float.lisp
===================================================================
--- /trunk/ccl/level-0/PPC/ppc-float.lisp	(revision 507)
+++ /trunk/ccl/level-0/PPC/ppc-float.lisp	(revision 508)
@@ -404,5 +404,5 @@
     (lwz imm0 ppc32::double-float.value float)
     (lwz imm1 ppc32::double-float.val-low float)
-    (stwu tsp -16 tsp)
+    (stwu tsp -24 tsp)
     (stw tsp 4 tsp)
     (stw imm0 fl.h tsp)