From 856a353e4ce06d214cb9385361b6e957711238f2 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 May 2003 20:14:03 +0000
Subject: [PATCH] .

original commit: a6f0357a75ff5144b09640144f005c35c249d8dd
---
 collects/mred/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index be1f7035..a829c028 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -1362,7 +1362,7 @@
 		       (dynamic-wind
 			   void
 			   (lambda () (send af on-exit))
-			   (lambda () (set! running-quit? #t)))))))))))])
+			   (lambda () (set! running-quit? #f)))))))))))])
   (wx:application-quit-handler (make-app-handler f f)))
 
 (define (set-handler! who proc param)