Index: /trunk/ccl/lisp-kernel/x86-spentry64.s
===================================================================
--- /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 6555)
+++ /trunk/ccl/lisp-kernel/x86-spentry64.s	(revision 6556)
@@ -1204,5 +1204,7 @@
 	__(testq %imm1,%imm1)
 	__(jne local_label(_throw_loop))
+        __(push %ra0)
 	__(uuo_error_reg_not_tag(Rtemp0,subtag_catch_frame))
+        __(pop %ra0)
 	__(jmp _SPthrow)
 local_label(_throw_found):	
@@ -1631,5 +1633,6 @@
 	__(movq %arg_y,(%temp1,%temp0))
 	__(jmp *%ra0)
-8:	__(uuo_error_reg_unbound(Rarg_z))
+8:	__(push %ra0)
+        __(uuo_error_reg_unbound(Rarg_z))
 	
 9:	__(movq $XSYMNOBIND,%arg_y)
@@ -4468,5 +4471,5 @@
 _endsubp(aset2)
 
-/* temp1 = array, %temp0 = i, %arg_x = j, %arg_y = k, %arg_y = newval. */
+/* %temp1 = array, %temp0 = i, %arg_x = j, %arg_y = k, %arg_y = newval. */
 
 _spentry(aset3)