anchor.diff:  
   -spec get_bucket(riak_client(), binary()) -> {ok, riakc_obj:riakc_obj()} | {error, term()}.
   get_bucket(RcPid, BucketName) when is_binary(BucketName) ->
  -    gen_server:call(RcPid, {get_bucket, BucketName}).
  +    gen_server:call(RcPid, {get_bucket, BucketName}, infinity).
   
   -spec set_bucket_name(riak_client(), binary()) -> ok | {error, term()}.
   set_bucket_name(RcPid, BucketName) when is_binary(BucketName) ->
  -    gen_server:call(RcPid, {set_bucket_name, BucketName}).
  +    gen_server:call(RcPid, {set_bucket_name, BucketName}, infinity).
   
   %% @doc Perform an initial read attempt with R=PR=N.
   %% If the initial read fails retry using
  
positive.code:     end.
  
  stop(Pid) ->
      gen_server:call(Pid, stop).
  
  -spec checkout() -> {ok, riak_client()} | {error, term()}.
  checkout() ->
  
negative.code:         {'EXIT', Error} ->
              {error, {poolboy_error, Error}};
          RcPid ->
              ok = gen_server:call(RcPid, cleanup, infinity),
              {ok, RcPid}
      end.
  
  