*************** *** 13,19 **** (define (make-undefined-response request controller-id controller-args) (make-html-response #:code 500 - #:message "Internal error" (xml (html (head (title "Controller not defined") ,stylesheet) (body (div (@ [id "container"]) --- 13,19 ---- (define (make-undefined-response request controller-id controller-args) (make-html-response #:code 500 + #:message #"Internal error" (xml (html (head (title "Controller not defined") ,stylesheet) (body (div (@ [id "container"]) *************** *** 35,41 **** (define (make-not-found-response request) (make-html-response #:code 404 - #:message "Not found" #:seconds (current-seconds) (xml (html (head (title "404 not found") ,stylesheet) --- 35,41 ---- (define (make-not-found-response request) (make-html-response #:code 404 + #:message #"Not found" #:seconds (current-seconds) (xml (html (head (title "404 not found") ,stylesheet) *************** *** 67,71 **** ; Provide statements ----------------------------- (provide/contract - [make-undefined-response (-> request? symbol? list? response?)] - [make-not-found-response (-> request? response?)]) --- 67,71 ---- ; Provide statements ----------------------------- (provide/contract + [make-undefined-response (-> request? symbol? list? response/full?)] + [make-not-found-response (-> request? response/full?)])