Index: /trunk/ccl/compiler/X86/x862.lisp
===================================================================
--- /trunk/ccl/compiler/X86/x862.lisp	(revision 5773)
+++ /trunk/ccl/compiler/X86/x862.lisp	(revision 5774)
@@ -8442,5 +8442,8 @@
           (case spec
             (:registers
-             (x862-vpush-register seg (x862-one-untargeted-reg-form seg valform x8664::arg_z)))
+             (let* ((reg (x862-one-untargeted-reg-form seg valform x8664::arg_z)))
+               (unless *x862-reckless*
+                 (! trap-unless-macptr reg))
+               (x862-vpush-register seg reg)))
             (:double-float
              (let* ((df ($ x8664::fp1 :class :fpr :mode :double-float)))
@@ -8514,5 +8517,5 @@
       (x862-lri seg x8664::rax (min 8 nfpr-args))
       (if return-registers
-        (! ff-call-returning-registers)
+        (! ff-call-return-registers)
         (! ff-call) )
       (x862-close-undo)