diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index f6c0d902b4..0d0c9effcb 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -128,7 +128,8 @@ (for ([e (reverse errors)]) (match-let ([(list cc desc x out err type) e]) (setup-fprintf port type "during ~a for ~a" desc (if (cc? cc) (cc-name cc) cc)) - (unless (null? x) (setup-fprintf port #f " ~a" (exn->string x))) + (unless (null? x) (for ([str (in-list (regexp-split #rx"\n" (exn->string x)))]) + (setup-fprintf port #f " ~a" str))) (unless (zero? (string-length out)) (eprintf "STDOUT:\n~a=====\n" out)) (unless (zero? (string-length err)) (eprintf "STDERR:\n~a=====\n" err)))))