***************
*** 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?)])