From f93bce0d245f7441b36e6e82e594a6eb7780e90b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 5 Jan 2007 22:03:23 +0000
Subject: [PATCH] fix bug in collecting marks to chain when an exception
 handler returns

svn: r5232
---
 src/mzscheme/src/fun.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 3bee385728..457670f06c 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -5900,7 +5900,9 @@ static Scheme_Object *continuation_marks(Scheme_Thread *p,
           find[pos].cache = (Scheme_Object *)pr;
         } else {
           cache = (Scheme_Object *)scheme_make_hash_table(SCHEME_hash_ptr);
-          scheme_hash_set((Scheme_Hash_Table *)cache, prompt_tag, (Scheme_Object *)pr);
+          scheme_hash_set((Scheme_Hash_Table *)cache, 
+                          prompt_tag ? prompt_tag : scheme_false, 
+                          (Scheme_Object *)pr);
           find[pos].cache = cache;
         }
         if (last)