anchor.diff:      %% output of the keygen is ignored.
       KeyGen(),
       {NextUrl, S2} = next_url(State),
  -    case do_post(url(NextUrl, State#state.path_params), [], ValueGen) of
  +    case do_post(url(NextUrl, State#state.path_params), [], ValueGen, State) of
           ok ->
               {ok, S2};
           {error, Reason} ->
  
positive.code: 
          {ok, Url, Headers} ->
              Vclock = lists:keyfind("X-Riak-Vclock", 1, Headers),
              case do_put(Url, [State#state.client_id, Vclock], ValueGen) of
                  ok ->
                      {ok, S2};
                  {error, Reason} ->
  
negative.code:                               || {IP, Port} <- Targets]),
      BaseUrlsIndex = random:uniform(tuple_size(BaseUrls)),
  
      SSL_options = case basho_bench_config:get(http_use_ssl, false) of
                        false ->
                            [];
                        true ->
                            [{is_ssl, true}, {ssl_options, []}];
                        SSLOpts when is_list(SSLOpts) ->
                            [{is_ssl, true}, {ssl_options, SSLOpts}]
                    end,
      RawHeaders = basho_bench_config:get(http_raw_append_headers,[]),
      RequestTimeout = basho_bench_config:get(http_raw_request_timeout, 5000),
  
      {ok, #state { client_id = ClientId,
                    base_urls = BaseUrls,
                    base_urls_index = BaseUrlsIndex,
                    files = Files,
                    path_params = Params,
                    solr_path = SolrPath,
                    searchgen = SearchGen,
                    opt_ssl_options = SSL_options,
                    opt_raw_headers = RawHeaders,
                    opt_request_timeout = RequestTimeout
                  }}.
  
  run(stat, _, _, State) ->
      {Url, S2} = next_url(State),
      case do_stat(stat_url(Url), State) of
          {ok, _, _} ->
              {ok, S2};
          {error, Reason} ->
  