diff --git a/collects/framework/private/editor.rkt b/collects/framework/private/editor.rkt index 9b795836..388818e4 100644 --- a/collects/framework/private/editor.rkt +++ b/collects/framework/private/editor.rkt @@ -149,14 +149,9 @@ #t)))) (define/private (format-error-message exn) - (let ([sp (open-output-string)]) - (parameterize ([current-output-port sp]) - ((error-display-handler) - (if (exn? exn) - (format "~a" (exn-message exn)) - (format "uncaught exn: ~s" exn)) - exn)) - (get-output-string sp))) + (if (exn? exn) + (format "~a" (exn-message exn)) + (format "uncaught exn: ~s" exn))) (inherit refresh-delayed? get-canvas