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 ; : ( url -- request ) "GET" ;