http: Use Uppercase For Header Names

[factor.git] / basis / http / client / client.factor

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index 9acdd247d6fab4f800177d0172829645e52d6fdb..3b8e30642aecf202ea520974eeb0cf475a9056eb 100644 (file)
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -57,10 +57,10 @@ ERROR: download-failed response ;
     ] if ;
 
 : set-host-header ( request header -- request header )
-    over url>> unparse-host "host" pick set-at ;
+    over url>> unparse-host "Host" pick set-at ;
 
 : set-cookie-header ( header cookies -- header )
-    unparse-cookie "cookie" pick set-at ;
+    unparse-cookie "Cookie" pick set-at ;
 
 : ?set-basic-auth ( header url name -- header )
     swap [