anchor.diff:  
   handle_response({Code, _Uri, Heads0, Payload}, Pipe, _State, S)
    when is_binary(Payload) ->
  -   Heads = [{'Content-Length', erlang:size(Payload)} | Heads0],
  +   Heads = [{'Server', ?HTTP_SERVER},{'Content-Length', erlang:size(Payload)} | Heads0],
      {Pckt, _, Http} = htstream:encode({Code, Heads, Payload}, S#fsm.enc),
      _ = pipe:b(Pipe, {send, S#fsm.peer, Pckt}),
      {next_state, 'LISTEN', 
  
positive.code:       {Chunk, Buffer, Http} = htstream:decode(iolist_to_binary([S#fsm.iobuffer, Pckt]), S#fsm.dec),
        handle_request(htstream:state(Http), Chunk, Pipe, S#fsm{iobuffer=Buffer, dec=Http})
     catch _:Reason ->
        handle_failure(Reason, Pipe, S),
        {next_state, 'LISTEN', S}
     end;
  
  
negative.code:    };
  
  handle_response({Code, _Uri, Heads0}, Pipe, State, S) ->
     Heads = [{'Server', ?HTTP_SERVER},{'Transfer-Encoding', chunked} | Heads0],
     {Pckt, _, Http} = htstream:encode({Code, Heads}, S#fsm.enc),
     _ = pipe:b(Pipe, {send, S#fsm.peer, Pckt}),
     {next_state, State,  S#fsm{enc=Http}}.
  