added a little more info to message

svn: r5248
2007-01-07 20:29:09 +00:00 · 2007-01-07 20:29:09 +00:00 · 9b56738700
commit 9b56738700
parent ff2769ad95
1 changed files with 2 additions and 2 deletions
--- 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)))