anchor.diff:              Vclock = lists:keyfind("X-Riak-Vclock", 1, Headers),
               case do_put(Url, [State#state.client_id, Vclock], ValueGen) of
                   ok ->
  -                    disconnect(Url),
                       {ok, S2};
                   {error, Reason} ->
  -                    disconnect(Url),
                       {error, Reason, S2}
               end
       end.
  
positive.code:         {not_found, Url} ->
              case do_put(Url, [], ValueGen) of
                  ok ->
                      disconnect(Url),
                      {ok, S2};
                  {error, Reason} ->
                      disconnect(Url),
                      {error, Reason, S2}
              end;
  
  
negative.code: %% Internal functions
  %% ====================================================================
  
  next_url(State) when is_record(State#state.base_urls, url) ->
      {State#state.base_urls, State};
  next_url(State) when State#state.base_urls_index > tuple_size(State#state.base_urls) ->
      { element(1, State#state.base_urls),
        State#state { base_urls_index = 1 } };
  