diff --git a/racket/collects/net/http-client.rkt b/racket/collects/net/http-client.rkt index 6e254c44eb..f74553bb11 100644 --- a/racket/collects/net/http-client.rkt +++ b/racket/collects/net/http-client.rkt @@ -261,7 +261,9 @@ (define decoded-response-port (cond [head? raw-response-port] - [(and (memq 'gzip decodes) (regexp-member #rx#"^(?i:Content-Encoding: +gzip)$" headers)) + [(and (memq 'gzip decodes) + (regexp-member #rx#"^(?i:Content-Encoding: +gzip)$" headers) + (not (eof-object? (peek-byte raw-response-port)))) (define-values (in out) (make-pipe PIPE-SIZE)) (define gunzip-t (thread