anchor.diff:      Method = case Action of
           get -> "GET";
           post -> "POST";
  -        put -> "PUT"
  +        put -> "PUT";
  +        head -> "HEAD"
       end,
  -    Params = oauth:signed_params(Method, Url, [], Consumer, Token, TokenSecret),
  +    Params = oauth:signed_params(Method, Url, QSL, Consumer, Token, TokenSecret)
  +        -- QSL,
       {"Authorization", "OAuth " ++ oauth_uri:params_to_header_string(Params)}.
  
positive.code:     undefined ->
          Headers0;
      {OAuthProps} ->
          [oauth_header(Url, get, OAuthProps) | Headers0]
      end,
      case catch ibrowse:send_req(Url, Headers, head) of
      {ok, "200", _, _} ->
  
negative.code:         Body
      end.
  
  oauth_header(Url, QS, Action, Props) ->
      QSL = [{couch_util:to_list(K), couch_util:to_list(V)} || {K,V} <- QS],
      ConsumerKey = ?b2l(proplists:get_value(<<"consumer_key">>, Props)),
      Token = ?b2l(proplists:get_value(<<"token">>, Props)),
      TokenSecret = ?b2l(proplists:get_value(<<"token_secret">>, Props)),
  