From cf120bc4a60b259d2ada84698f06da20ab3295eb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 12 Sep 2012 11:30:48 -0600
Subject: [PATCH] win64: stack-trace repair: add cached tail to trace

---
 src/racket/src/jitstack.c | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/src/racket/src/jitstack.c b/src/racket/src/jitstack.c
index 2c1c4c8fb4..00c5586c03 100644
--- a/src/racket/src/jitstack.c
+++ b/src/racket/src/jitstack.c
@@ -291,7 +291,15 @@ Scheme_Object *scheme_native_stack_trace(void)
       }
     }
 
-    return first;
+    if (last)
+      SCHEME_CDR(last) = tail;
+    else
+      first = tail;
+    
+    if (SCHEME_NULLP(first))
+      return NULL;
+    else
+      return first;
   }
 #endif