From dd5d1c9046922e49cc7bd7554f91f5ebcbf2e670 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 Dec 2011 16:47:59 -0700
Subject: [PATCH] another futures bug fix

---
 src/racket/src/jitcall.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/racket/src/jitcall.c b/src/racket/src/jitcall.c
index d2321f1756..6cc9ca86ea 100644
--- a/src/racket/src/jitcall.c
+++ b/src/racket/src/jitcall.c
@@ -162,6 +162,10 @@ static Scheme_Object *_scheme_tail_apply_from_native_fixup_args(Scheme_Object *r
     base[already + i] = argv[i];
   }
 
+  /* In futures mode, it's important that the argument array matches
+     runstack: */
+  MZ_RUNSTACK = base;
+
   return ts__scheme_tail_apply_from_native(rator, argc + already, base);
 }