(handle-exceptions x (begin (display "went wrong") (newline) (pp (request-uri (car ((condition-property-accessor 'exn 'arguments) x)))) (newline) (newline) (pp (condition->list x)) (newline)) (nth-value 2 (call-with-response (make-request uri: (uri-reference "http://knodium.co")) (lambda (p) (display "writing") (newline) #f) (lambda (p) (display "reading")(newline)#f))) )