From 4df95e9da7f43e9e3178535ce10035d9d66f418e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 9 Jul 2008 01:24:32 +0000
Subject: [PATCH] fix unwrap for an uncaught non-&serious condition

svn: r10686
---
 collects/rnrs/exceptions-6.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/rnrs/exceptions-6.ss b/collects/rnrs/exceptions-6.ss
index 6a20899a05..ae6baa99ca 100644
--- a/collects/rnrs/exceptions-6.ss
+++ b/collects/rnrs/exceptions-6.ss
@@ -95,11 +95,11 @@
                             ;; Not &serious, so try to "continue":
                             (begin
                               ((error-display-handler)
-                               (if (exn? exn)
-                                   (exn-message exn)
+                               (if (exn? base)
+                                   (exn-message base)
                                    (format "uncaught exception: ~s"
-                                           exn))
-                               exn)
+                                           base))
+                               base)
                               ;; If it's continuable, then continue
                               ;; by resuming the old continuation.
                               ;; (Otherwise, let the a handler-