Index: /trunk/ccl/lisp-kernel/x86-spentry64.s
===================================================================
--- /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 5967)
+++ /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 5968)
@@ -1515,6 +1515,6 @@
 	__(push %temp0)
 	__(push %rcontext:tcr.db_link)
+	__(movq %rsp,%rcontext:tcr.db_link)
 	__(movq %arg_z,(%temp1,%temp0))
-	__(movq %rsp,%rcontext:tcr.db_link)
 	__(jmp *%ra0)
 9:	
@@ -1567,6 +1567,6 @@
 	__(push %temp0)
 	__(push %rcontext:tcr.db_link)
+	__(movq %rsp,%rcontext:tcr.db_link)
 	__(movq $nil_value,(%temp0,%temp1))
-	__(movq %rsp,%rcontext:tcr.db_link)
 	__(jmp *%ra0)
 9:	__(movq $XSYMNOBIND,%arg_y)
@@ -1599,6 +1599,6 @@
 	__(push %temp0)
 	__(push %rcontext:tcr.db_link)
+	__(movq %rsp,%rcontext:tcr.db_link)
 	__(movq %arg_y,(%temp1,%temp0))
-	__(movq %rsp,%rcontext:tcr.db_link)
 	__(jmp *%ra0)
 8:	__(uuo_error_reg_unbound(Rarg_z))
@@ -3498,6 +3498,6 @@
 	__(push $INTERRUPT_LEVEL_BINDING_INDEX)
 	__(push %rcontext:tcr.db_link)
+	__(movq %rsp,%rcontext:tcr.db_link)
 	__(movq $0,INTERRUPT_LEVEL_BINDING_INDEX(%temp1))
-	__(movq %rsp,%rcontext:tcr.db_link)
 	__(js,pn 1f)
 0:	__(jmp *%ra0)
@@ -3516,6 +3516,6 @@
 	__(push $INTERRUPT_LEVEL_BINDING_INDEX)
 	__(push %rcontext:tcr.db_link)
+	__(movq %rsp,%rcontext:tcr.db_link)
 	__(movq $-1<<fixnumshift,INTERRUPT_LEVEL_BINDING_INDEX(%temp1))
-	__(movq %rsp,%rcontext:tcr.db_link)
 	__(jmp *%ra0)
 _endsubp(bind_interrupt_level_m1)
@@ -3530,6 +3530,6 @@
 	__(push $INTERRUPT_LEVEL_BINDING_INDEX)
 	__(push %rcontext:tcr.db_link)
+	__(movq %rsp,%rcontext:tcr.db_link)
 	__(movq %arg_z,INTERRUPT_LEVEL_BINDING_INDEX(%temp1))
-	__(movq %rsp,%rcontext:tcr.db_link)
 	__(jmp *%ra0)
 _endsubp(bind_interrupt_level)