anchor.diff:      BinKey = list_to_binary(Key),
       ok = case riakc_pb_socket:get(Conn, Bucket, BinKey) of
           {ok, O} ->
  -            O2 = riakc_obj:update_value(O, PropList),
  +            O2 = riakc_obj:update_value(O, ConvertedPropList),
               riakc_pb_socket:put(Conn, O2);
           {error, _} ->
  -            O = riakc_obj:new(Bucket, BinKey, PropList, <<"application/x-erlang-term">>),
  +            O = riakc_obj:new(Bucket, BinKey, ConvertedPropList, <<"application/x-erlang-term">>),
               riakc_pb_socket:put(Conn, O)
       end,
       {ok, Record:set(id, lists:concat([Type, "-", Key]))}.
  
positive.code: 
  escape_value([], Acc) ->
      lists:reverse(Acc);
  escape_value([H|T], Acc) when H=:=$+; H=:=$-; H=:=$&; H=:=$|; H=:=$!; H=:=$(; H=:=$); 
                                H=:=$[; H=:=$]; H=:=${; H=:=$}; H=:=$^; H=:=$"; H=:=$~; 
                                H=:=$*; H=:=$?; H=:=$:; H=:=$\\ ->
      escape_value(T, lists:reverse([$\\, H], Acc));
  escape_value([H|T], Acc) ->
      escape_value(T, [H|Acc]).
  
negative.code:     case Max of
          all -> lists:nthtail(Skip, Sorted);
          Max when Skip < length(Sorted) ->
              lists:sublist(Sorted, Skip + 1, Max);
          _ ->
              []
      end.
  
  % this is a stub just to make the tests runable
  