anchor.diff:  %% @doc Return true if connected to the remote server and {false, [{Reason,integer()}]}
   %%      with a list of failed connect reasons
   is_connected(Pid) ->
  -    gen_server:call(Pid, is_connected).
  +    is_connected(Pid, infinity).
  +
  +%% @doc See is_connected/1 with gen_server timeout
  +is_connected(Pid, Timeout) ->
  +    gen_server:call(Pid, is_connected, Timeout).
   
   %% @doc Ping the server
   -spec ping(pid()) -> ok | {error, term()}.
  
positive.code: handle_info({tcp_closed, _Socket}, State) ->
      {noreply, disconnect(State)};
  
  handle_info({tcp, _Socket, Data}, State=#state{sock = Sock, active = Active}) ->
      [MsgCode|MsgData] = Data,
      Resp = riakc_pb:decode(MsgCode, MsgData),
      case Resp of
  
negative.code: %%      Client id will be assigned by the server.
  -spec start_link(address(), portnum()) -> {ok, pid()} | {error, term()}.
  start_link(Address, Port) ->
      start_link(Address, Port, []).
  
  %% @doc Create a linked process to talk with the riak server on Address:Port with Options
  %%      Client id will be assigned by the server.
  