fixes.scm

(save-module-excursion
 (lambda ()
   (set-current-module (resolve-module '(web client)))
   (eval '(define (extend-request r k v . additional)
            (let ((r (build-request (request-uri r)
                                    #:method (request-method r)
                                    #:version (request-version r)
                                    #:headers
                                    (assoc-set! (copy-tree (request-headers r))
                                                k v)
                                    #:port (request-port r)
                                    #:meta (request-meta r))))
              (if (null? additional)
                  r
                  (apply extend-request r additional))))
         (current-module))))