anchor.diff:                              list_to_binary(?CONTENT_TYPE_JSON)),
       case riakc_pb_socket:put(Pid, Object) of
           ok ->
  -            ?nebMsg("ok"),
               {ok, Oid};
           {error, Term} ->
  -            ?nebFmt("error, Term: ~p", [Term]),
               {error, Term}
       end.
   
   %% @doc Search an index for objects.
   -spec search(string(), cdmi_state()) -> {error, 404|500}|{ok, map()}.
  -search(Path, State) when is_binary(Path); is_map(State) ->
  -    Path2 = binary_to_list(Path),
  -    search(Path2, State);
  -search(Path, State) when is_list(Path); is_map(State) ->
  -%    ?nebMsg("Entry"),
  +search(Path, State) when is_list(Path), is_tuple(State) ->
  +    ?nebMsg("Entry"),
       {Pid, _} = State,
       Query = "sp:\\" ++ Path,
  +    ?nebFmt("Query: ~p", [Query]),
       Result =  execute_search(Pid, Query),
       Result.
   
   %% @doc Update an existing key/value pair.
   -spec update(pid(),
                object_oid(),      %% Oid
  -             map()              %% Data to store
  +             binary()           %% Data to store
               ) -> ok | {error, term()}.
   
  -update(Pid, Oid, Data) when is_pid(Pid); is_binary(Oid) ->
  +update(Pid, Oid, Data) when is_pid(Pid), is_binary(Oid) ->
   %    ?nebMsg("Entry"),
       case get(Pid, Oid) of
           {error, Term} ->
  
positive.code: 
  %% @doc Delete an object from riak by bucket type, bucket and key.
  -spec delete(pid(), object_oid()) -> ok | {error, term()}.
  delete(Pid, Oid) when is_pid(Pid); is_binary(Oid) ->
  %    ?nebMsg("Entry"),
      riakc_pb_socket:delete(Pid,
                             ?RIAK_TYPE_AND_BUCKET,
  
negative.code: 
  %% @doc Get a value from riak by bucket type, bucket and key. Return string.
  -spec get(pid(), object_oid()) -> {ok, map()}|{error, term()}.
  get(Pid, Oid) when is_pid(Pid), is_binary(Oid) ->
  %    ?nebMsg("Entry"),
      case riakc_pb_socket:get(Pid, ?RIAK_TYPE_AND_BUCKET, Oid) of
                  {ok, Object} ->
  