From 58444b904d29402ae96d1baedc60bf38efb961b7 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sun, 7 Jan 2007 20:13:44 +0000
Subject: [PATCH] fixed bug in debug handler

svn: r5246
---
 collects/drscheme/private/debug.ss | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss
index f4d673f2a4..cc19018768 100644
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@@ -198,8 +198,12 @@ profile todo:
                                  (apply values last-one)]
                                 [else 
                                  (i-loop (cdr exprs)
-                                         (call-with-values (λ () (loop (car exprs)))
-                                                           list))]))
+                                         (call-with-values 
+                                          (λ () 
+                                            (call-with-continuation-prompt
+                                             (λ ()
+                                               (loop (car exprs)))))
+                                          list))]))
                             
                             ;; the version below behaves properly wrt continuations
                             ;; but doesn't match mzscheme. So, we use the one above.