#lang racket/base
(provide exn->string)
(define (exn->string exn)
(parameterize ([current-error-port (open-output-string)])
((error-display-handler) (exn-message exn) exn)
(get-output-string (current-error-port))))