diff --git a/module/web/client.scm b/module/web/client.scm
index 24132c674..affbac500 100644
--- a/module/web/client.scm
+++ b/module/web/client.scm
@@ -103,11 +103,14 @@
               (loop (cdr addresses))))))))
 
 (define (extend-request r k v . additional)
-  (let ((r (build-request (request-uri r) #:version (request-version r)
+  (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))))
+                          #:port (request-port r)
+                          #:meta (request-meta r))))
     (if (null? additional)
         r
         (apply extend-request r additional))))