(module A
  (export with-display-exception)
  (extern (display-exception display-exception))
  (def (with-display-exception thunk) RIGHT
    (with-catch (lambda (e) (display-exception e (current-error-port)) e)
      thunk ChangeMe)))