From 9b56738700df2b7573b1594230e1b573d41b8b9d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 7 Jan 2007 20:29:09 +0000 Subject: [PATCH] added a little more info to message svn: r5248 --- collects/drscheme/private/tools.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drscheme/private/tools.ss b/collects/drscheme/private/tools.ss index 969d09cef3..459829f5bd 100644 --- a/collects/drscheme/private/tools.ss +++ b/collects/drscheme/private/tools.ss @@ -221,8 +221,8 @@ title]) ((error-display-handler) (if (exn? x) - (format "~a" (exn-message x)) - (format "uncaught exception: ~s" x)) + (format "~a\n\n~a" title (exn-message x)) + (format "~a\n\nuncaught exception: ~s" title x)) x)))