diff --git a/collects/tests/web-server/http/xexpr.rkt b/collects/tests/web-server/http/xexpr.rkt
index af321614f3..e4185cef80 100644
--- a/collects/tests/web-server/http/xexpr.rkt
+++ b/collects/tests/web-server/http/xexpr.rkt
@@ -50,6 +50,11 @@
  =>
  #"HTTP/1.1 200 Okay\r\nDate: REDACTED GMT\r\nLast-Modified: REDACTED GMT\r\nServer: Racket\r\nContent-Type: text/html; charset=utf-8\r\nConnection: close\r\nhead: value\r\n\r\n<a href=\"#\">link</a>"
  
+ (write-response (response/xexpr '(a ([href "#"]) "link")
+                                      #:cookies (list (make-cookie "head" "value"))))
+ =>
+ #"HTTP/1.1 200 Okay\r\nDate: REDACTED GMT\r\nLast-Modified: REDACTED GMT\r\nServer: Racket\r\nContent-Type: text/html; charset=utf-8\r\nConnection: close\r\nSet-Cookie: head=value; Version=1\r\n\r\n<a href=\"#\">link</a>"
+ 
  (write-response (response/xexpr '(a ([href "#"]) "link")
                                       #:preamble #"<<!something XMLy>>"))
  =>
diff --git a/collects/web-server/http/xexpr.rkt b/collects/web-server/http/xexpr.rkt
index efa78dd35c..708066461d 100644
--- a/collects/web-server/http/xexpr.rkt
+++ b/collects/web-server/http/xexpr.rkt
@@ -3,6 +3,7 @@
          racket/list
          xml
          web-server/private/xexpr
+         net/cookie
          "request-structs.rkt"
          "cookie.rkt"
          "response-structs.rkt")
@@ -27,5 +28,5 @@
 (provide/contract
  [response/xexpr 
   ((pretty-xexpr/c)
-   (#:code number? #:message bytes? #:seconds number? #:mime-type bytes? #:headers (listof header?) #:preamble bytes?)
+   (#:code number? #:message bytes? #:seconds number? #:mime-type bytes? #:cookies (listof cookie?) #:headers (listof header?) #:preamble bytes?)
    . ->* . response?)])