anchor.diff:  % Parses out field name from headers
   get_field_name(Headers) ->
       try
  -        ContentDispValue = proplists:get_value(<<"content-disposition">>, Headers), 
  +        ContentDispValue = proplists:get_value(<<"content-disposition">>, Headers),
           {"form-data", [], Params} = parse_header(ContentDispValue),
           proplists:get_value("name", Params, "")
       catch _:_ ->
  
positive.code:     PHeaders2 = lists:keystore(<<"content-length">>, 1, PHeaders,
          {<<"content-length">>, Length}),
      PHeaders3 = lists:keydelete(<<"transfer-encoding">>, 1, PHeaders2),
      Req#http_req{buffer=Rest, body_state=done,
          headers=Headers3, p_headers=PHeaders3}.
  
  %% @todo Probably needs a Rest.
  -spec content_decode(content_decode_fun(), binary(), Req)
      -> {ok, binary(), Req} | {error, atom()} when Req::req().
  content_decode(ContentDecode, Data, Req) ->
      case ContentDecode(Data) of
          {ok, Data2} -> {ok, Data2, Req};
  
negative.code: 
  ensure_unique_filename(RequestedPath, Counter) ->
      Ext = filename:extension(RequestedPath),
      Rootname = filename:rootname(RequestedPath),
      NewName = lists:flatten(io_lib:format("~s(~B)~s", [Rootname, Counter, Ext])),
      case logical_files_manager:create(NewName) of
          ok -> NewName;
  