(call/cc 
  (lambda (k)
    (with-exception-handler 
      (lambda (x) 
        (display "Caught Exception")
        (print-error-message x)
        (print-call-chain)
        (k #f))
      (lambda ()
        (even? 'string)))))