Index: /branches/working-0711/ccl/lisp-kernel/x86-macros.s
===================================================================
--- /branches/working-0711/ccl/lisp-kernel/x86-macros.s	(revision 8039)
+++ /branches/working-0711/ccl/lisp-kernel/x86-macros.s	(revision 8040)
@@ -128,4 +128,5 @@
 	zero_dnodes $2,0,TSP_Alloc_Size
 	movq %stack_temp,($2)
+        movq %rbp,tsp_frame.save_rbp($2)
         movq $2,%rcontext:tcr.save_tsp
 	undefine([TSP_Alloc_Size])
@@ -150,4 +151,5 @@
 	movd %stack_temp,$1
 	movq $1,($2)
+        movq %rbp,tsp_frame.save_rbp($2)
         movq $2,%rcontext:tcr.save_tsp
 	addq $dnode_size,$2