Index: /trunk/ccl/lisp-kernel/x86-spentry64.s
===================================================================
--- /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 5770)
+++ /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 5771)
@@ -4103,5 +4103,5 @@
 	__(push %save2)
 	__(push %save3)
-        __(movq macptr.address(%arg_y),%save3)
+        __(movq macptr.address(%arg_y),%save2)  /* save2 = %r13, non-volatile */
 	__(push %fn)
 	__(push %ra0)
@@ -4140,8 +4140,8 @@
 	__(pop %r9)
 	__(call *%rax)
-        __(movq %rax,(%save3))
-        __(movq %rdx,8(%save3))
-        __(movsd %xmm0,16(%save3))
-        __(movsd %xmm1,24(%save3))
+        __(movq %rax,(%save2))
+        __(movq %rdx,8(%save2))
+        __(movsd %xmm0,16(%save2))
+        __(movsd %xmm1,24(%save2))
 	__(movq %rbp,%rsp)
         __ifdef([DARWIN_GS_HACK])
@@ -4149,8 +4149,8 @@
             contains the linear tcr address.  Preserve %rax/%rdx here. */
          __(set_gs_base(%save0))
-         __(movq (%save3),%rax)
-         __(movq 8(%save3),%rdx)
-         __(movsd 16(%save3),%xmm0)
-         __(movsd 24(%save3),%xmm1)
+         __(movq (%save2),%rax)
+         __(movq 8(%save2),%rdx)
+         __(movsd 16(%save2),%xmm0)
+         __(movsd 24(%save2),%xmm1)
         __endif
 	__(movq %rsp,%rcontext:tcr.foreign_sp)