diff --git a/collects/help/private/bug-report-controls.rkt b/collects/help/private/bug-report-controls.rkt index df55f3657a..147e83be94 100644 --- a/collects/help/private/bug-report-controls.rkt +++ b/collects/help/private/bug-report-controls.rkt @@ -446,7 +446,9 @@ (define planet2-info-sp (open-output-string)) (parameterize ([current-output-port planet2-info-sp]) - (planet2:show)) + (with-handlers ([exn:fail? (lambda (exn) + (printf "ERROR:\n~a" (exn-message exn)))]) + (planet2:show))) (send (send planet2-info get-editor) insert (get-output-string planet2-info-sp))