Index: /trunk/ccl/lisp-kernel/x86-spentry64.s
===================================================================
--- /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 6212)
+++ /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 6213)
@@ -2749,6 +2749,6 @@
 	__(addq $fulltag_misc+tsp_frame.fixed_overhead,%arg_z)
 	__(movq %imm0,macptr.address(%arg_z))
-	__(movss %fpzero,macptr.domain(%arg_z))
-	__(movss %fpzero,macptr.type(%arg_z))
+	__(movsd %fpzero,macptr.domain(%arg_z))
+	__(movsd %fpzero,macptr.type(%arg_z))
 	__(jmp 2f)
 1:	__(movapd %fpzero,(%imm0))