From 28d5ae19f9aa6e5dd9c7fdee1e6c18780f8b694d Mon Sep 17 00:00:00 2001
From: John Clements <clements@racket-lang.org>
Date: Wed, 2 Sep 2015 14:31:22 -0700
Subject: [PATCH] http-client: don't try to gunzip an empty stream

---
 racket/collects/net/http-client.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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