Index: /trunk/ccl/lisp-kernel/spentry.s
===================================================================
--- /trunk/ccl/lisp-kernel/spentry.s	(revision 826)
+++ /trunk/ccl/lisp-kernel/spentry.s	(revision 827)
@@ -3647,8 +3647,8 @@
 	__(mr rcontext,imm2)
 	__(li imm2,TCR_STATE_LISP)
+	__(ldr(tsp,tcr.save_tsp(rcontext)))
 	__(str(imm2,tcr.valence(rcontext)))	
 	__(ldr(allocptr,tcr.save_allocptr(rcontext)))
 	__(ldr(allocbase,tcr.save_allocbase(rcontext)))
-	__(ldr(tsp,tcr.save_tsp(rcontext)))
 	__(ldr(loc_pc,lisp_frame.savelr(sp)))
 	__(mtlr loc_pc)