anchor.diff:  
   
   handle_chunk(Chunk, #state{requests = [#http_request{listener = Listener} | _]} = State) ->
  -    Listener ! {body, Chunk},
  +    case State#state.zstream of
  +	none ->
  +	    Listener ! {body, Chunk};
  +	ZStream ->
  +	    DecompressedChunk =
  +		lists:flatten([binary_to_list(D) ||
  +				  D <- zlib:inflate(ZStream, list_to_binary(Chunk))]),
  +	    Listener ! {body, DecompressedChunk}
  +    end,
       State.
   
   handle_packet_end(#state{chunked = true} = State) ->
  
positive.code: 		   requests = [#http_request{host = Host, path = Path,
  					     listener = Listener} | _]} = State) ->
  
      error_logger:info_msg("~p got response for ~p ~p:~n~p",
  			  [self(), Host, Path, {Code, Status, Headers}]),
      Listener ! {response, Code, Status, Headers},
  
      Chunked =
  	case lists:keysearch("transfer-encoding", 1, Headers) of
  	    {value, {_, [$c, $h, $u, $n, $k, $e, $d | _]}} ->
  
negative.code:     io_lib:format("GET ~s HTTP/1.1\r\n" ++
  		  "Host: ~s\r\n" ++
  		  "Connection: Keep-Alive\r\n" ++
  		  "Accept-Encoding: chunked, deflate, identity\r\n" ++
  		  "User-Agent: Harvester-e/0\r\n" ++
  		  "\r\n", [Path, Host]).
  
  