Index: /branches/arm/lisp-kernel/arm-spentry.s
===================================================================
--- /branches/arm/lisp-kernel/arm-spentry.s	(revision 13987)
+++ /branches/arm/lisp-kernel/arm-spentry.s	(revision 13988)
@@ -3016,8 +3016,9 @@
         __(str vsp,[rcontext,#tcr.save_vsp])
         __(ldr imm1,[sp,#4])
-        __(str vsp,[rcontext,#tcr.last_lisp_frame])
+        __(str imm1,[rcontext,#tcr.last_lisp_frame])
         __(str allocptr,[rcontext,#tcr.save_allocptr])
         __(mov imm0,#TCR_STATE_FOREIGN)
         __(str imm0,[rcontext,#tcr.valence])
+        __(add sp,sp,#node_size*2)   /* drop the ivector that hides foreign stack contents */
         __(ldmia sp!,{r4,r5,r6,r7,r8,r9,r10,r11,r12,lr})
         __(ldmia sp!,{r0,r1})