Index: /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp
===================================================================
--- /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 5771)
+++ /trunk/ccl/compiler/X86/X8664/x8664-arch.lisp	(revision 5772)
@@ -1279,5 +1279,5 @@
   ;; Reserve space for rax,rdx,xmm0,xmm1 only.
   (let* ((size (+ (* 2 8) (* 2 8))))
-    `(ccl::%stack-block ((,buf ,size))
+    `(ccl::%stack-block ((,buf ,size :clear t))
       ,@body)))