A patch for the binary response body decoding problem

binary-response.patch

diff --git a/basis/http/client/client.factor b/basis/http/client/client.factor
index 7f99c62..8d1b996 100644
--- a/basis/http/client/client.factor
+++ b/basis/http/client/client.factor
@@ -162,7 +162,8 @@ ERROR: download-failed response ;
 
 : http-request ( request -- response data )
     [ [ % ] with-http-request ] B{ } make
-    over content-encoding>> decode check-response-with-body ;
+    over content-encoding>> dup binary = [ drop ] [ decode ] if
+    check-response-with-body ;
 
 : <get-request> ( url -- request )
     "GET" <client-request> ;