anchor.diff:  create_bucket(Ip, Port, Bucket, Requester, Options) ->
       Ssl = proplists:get_value(ssl, Options, true),
       AuthCreds = proplists:get_value(auth_creds, Options, undefined),
  -    Url = buckets_url(Ip, Port, Ssl),
  +    Path = buckets_path([]),
  +    Url = buckets_url(Ip, Port, Ssl, Path),
       Body= "name=" ++
           binary_to_list(Bucket) ++
           "&requester=" ++
           binary_to_list(Requester),
  -    ReqHeaders = [{"Content-Type", "application/x-www-form-urlencoded"},
  -                  {"Content-Md5", content_md5(Body)},
  -                  {"Date", httpd_util:rfc1123_date()}],
  +    Headers0 = [{"Content-Type", "application/x-www-form-urlencoded"},
  +                {"Content-Md5", content_md5(Body)},
  +                {"Date", httpd_util:rfc1123_date()}],
       case AuthCreds of
           {_, _} ->
               Headers =
                   [{"Authorization", auth_header('POST',
  -                                               ReqHeaders,
  -                                               "/buckets",
  +                                               Headers0,
  +                                               Path,
                                                  AuthCreds)} |
  -                 ReqHeaders];
  +                 Headers0];
           undefined ->
  -            Headers = ReqHeaders
  +            Headers = Headers0
       end,
       case request(post, Url, ["204"], Headers, Body) of
           {ok, "204", _RespHeaders, _RespBody} ->
  
positive.code:                   {string(), string()}) -> string().
  auth_header(HttpVerb, Headers, Path, {AuthKey, AuthSecret}) ->
      Signature = bucket_bouncer_auth:request_signature(HttpVerb,
                                                           Headers,
                                                           Path,
                                                           AuthSecret),
      "MOSS " ++ AuthKey ++ ":" ++ Signature.
  
negative.code: stats_url(Ip, Port, Ssl) ->
      lists:flatten([root_url(Ip, Port, Ssl), "stats/"]).
  
  %% @doc Assemble the path for a bucket request
  -spec buckets_path(binary()) -> [string()].
  buckets_path(Bucket) ->
      ["/buckets",
       ["/" ++ binary_to_list(Bucket) || Bucket /= []]
      ].
  
  %% @doc Assemble the URL for a buckets request
  -spec buckets_url(string(), pos_integer(), boolean(), [string()]) ->
                           string().
  buckets_url(Ip, Port, Ssl, Path) ->
      lists:flatten(
        [root_url(Ip, Port, Ssl),
         Path
        ]).
  
  %% @doc Assemble the URL for the given bucket and key
  