From 6aa23fd7a2c93cff05fd89c3260abc281140a14c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 18 Jun 2008 01:52:50 -0500
Subject: [PATCH] Fix http.client load error'

---
 extra/http/client/client.factor | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/extra/http/client/client.factor b/extra/http/client/client.factor
index 56957b021c..0b9224f171 100755
--- a/extra/http/client/client.factor
+++ b/extra/http/client/client.factor
@@ -79,13 +79,9 @@ ERROR: download-failed response body ;
 
 M: download-failed error.
     "HTTP download failed:" print nl
-    [
-        response>>
-            write-response-code
-            write-response-message nl
-        drop
-    ]
-    [ body>> write ] bi ;
+    [ response>> write-response-line nl drop ]
+    [ body>> write ]
+    bi ;
 
 : check-response ( response data -- response data )
     over code>> success? [ download-failed ] unless ;