anchor.diff:  recv_body(MaxBody) ->
       % we could use a sane constant for max chunk size
       Body = stream_body(?MAX_RECV_BODY, fun
  -        ({0, _ChunkedFooter}, {_LengthAcc, BinAcc}) -> 
  +        ({0, _ChunkedFooter}, {_LengthAcc, BinAcc}) ->
               iolist_to_binary(lists:reverse(BinAcc));
           ({Length, Bin}, {LengthAcc, BinAcc}) ->
               NewLength = Length + LengthAcc,
               if NewLength > MaxBody ->
                   exit({body_too_large, chunked});
  -            true -> 
  +            true ->
                   {NewLength, [Bin | BinAcc]}
               end
           end, {0, []}, MaxBody),
  
positive.code:     invalid_range = range_skip_length({BodySize, none}, BodySize),
      io:format(".. ok ~n"),
      ok.
      
  
negative.code:                 exit({body_too_large, content_length});
              _ ->
                  stream_unchunked_body(Length, MaxChunkSize, ChunkFun, FunState)
              end;
          Length ->
              exit({length_not_integer, Length})
      end.
  