anchor.diff:  send_authed_query(#state{storage_url = _URL, token = _AuthToken} = State, PathInfo, Headers,  Method) ->
   	send_authed_query(State, PathInfo, Headers, Method, []).
   
  -send_authed_query(#state{storage_url = URL, token = AuthToken}, PathInfo, Headers,  Method, Body) ->	
  -	ibrowse:send_req(URL ++ PathInfo, [{"X-Auth-Token", AuthToken} | Headers], Method, Body).
  +send_authed_query(#state{storage_url = _URL, token = _AuthToken} = State, PathInfo, Headers,  Method, Body) ->
  +	send_authed_query(State, PathInfo, Headers, Method, Body, []).
  +
  +send_authed_query(#state{storage_url = URL, token = AuthToken}, PathInfo, Headers,  Method, Body, Options) ->	  
  +	ibrowse:send_req(URL ++ PathInfo, [{"X-Auth-Token", AuthToken} | Headers], Method, Body, Options).
   
   %%
   %% Extract a header from a list of items header items
  
positive.code: 			_ -> extract_metadata_headers(Prefix, HeaderList)
  	end.
  
  parse_object_options([]) -> [];
  parse_object_options([{Option, Value}|Options]) ->
  	case Option of
  		delete_at -> [{"X-Delete-At", Value} | parse_object_options(Options)];
  		delete_after -> [{"X-Delete-After", Value} | parse_object_options(Options)];
  		_ -> parse_object_options(Options)
  	end.
  
  %%
  
negative.code: %%  error on any other error
  %%
  modify_container_metadata(State, Container, Metadata) ->
  	{ok, Code, _Header, _Content} = send_authed_query(State, "/" ++ Container, create_metadata_headers("X-Container-Meta-", Metadata), post),
  	
  	case list_to_integer(Code) of
  		204 -> ok;
  