Index: /branches/working-0711/ccl/lisp-kernel/x86-exceptions.c
===================================================================
--- /branches/working-0711/ccl/lisp-kernel/x86-exceptions.c	(revision 8007)
+++ /branches/working-0711/ccl/lisp-kernel/x86-exceptions.c	(revision 8008)
@@ -276,10 +276,10 @@
   LispObj *vsp =  (LispObj *) xpGPR(xp,Isp), ra = *vsp++;
    
-  
+  xpGPR(xp,Isp) = (LispObj) vsp;
+
   if (disp > 0) {               /* implies that nargs > 3 */
     vsp[disp] = xpGPR(xp,Irbp);
     vsp[disp+1] = ra;
     xpGPR(xp,Irbp) = (LispObj)(vsp+disp);
-    xpGPR(xp,Isp) = (LispObj)vsp;
     push_on_lisp_stack(xp,xpGPR(xp,Iarg_x));
     push_on_lisp_stack(xp,xpGPR(xp,Iarg_y));