From d8e19ccb9540dfa13b54ad13e7ab9fbd08a37340 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 25 Feb 2008 14:55:40 -0600
Subject: [PATCH] fix a couple of bugs in http.server

---
 extra/http/server/responders/responders.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/http/server/responders/responders.factor b/extra/http/server/responders/responders.factor
index e4e0e257c4..70507f002b 100755
--- a/extra/http/server/responders/responders.factor
+++ b/extra/http/server/responders/responders.factor
@@ -77,7 +77,7 @@ SYMBOL: max-post-request
 1024 256 * max-post-request set-global
 
 : content-length ( header -- n )
-    "Content-Length" swap at string>number dup [
+    "content-length" peek at string>number dup [
         dup max-post-request get > [
             "Content-Length > max-post-request" throw
         ] when
@@ -136,7 +136,7 @@ LOG: log-headers DEBUG
 
 : host ( -- string )
     #! The host the current responder was called from.
-    "Host" header-param ":" split1 drop ;
+    "host" header-param ":" split1 drop ;
 
 : add-responder ( responder -- )
     #! Add a responder object to the list.