anchor.diff:  
   %% Returns a Riak object.
   get_obj(RiakClient, DocIndex, DocID) ->
  -    Bucket = to_binary(DocIndex),
  +    Bucket = idx_doc_bucket(DocIndex),
       Key = to_binary(DocID),
       RiakClient:get(Bucket, Key).
   
  
positive.code: %% Write the object to Riak.
  put(RiakClient, IdxDoc) ->
      #riak_idx_doc { id=DocID, index=DocIndex } = IdxDoc,
      DocBucket = to_binary(DocIndex),
      DocKey = to_binary(DocID),
      case RiakClient:get(DocBucket, DocKey) of
          {ok, Obj} -> 
  
negative.code:     RiakClient:put(DocObj).
  
  delete(RiakClient, DocIndex, DocID) ->
      DocBucket = idx_doc_bucket(DocIndex),
      DocKey = to_binary(DocID),
      RiakClient:delete(DocBucket, DocKey).
  
  
  idx_doc_bucket(Bucket) when is_binary(Bucket) ->
      <<"_rsid_", Bucket/binary>>;
  idx_doc_bucket(Bucket) ->
      idx_doc_bucket(to_binary(Bucket)).
  