anchor.diff:  set_value(Key, Value, JsonObj) when is_binary(Key) ->
       {Props} = JsonObj,
       case proplists:is_defined(Key, Props) of
  -    true -> set_value1(Props, Key, Value, []);
  -    false-> {lists:reverse([{Key, Value}|lists:reverse(Props)])}
  +        true -> set_value1(Props, Key, Value, []);
  +        false-> {lists:reverse([{Key, Value}|lists:reverse(Props)])}
       end.
       
   %% @spec get_value(Key::key_val(), JsonObj::json_obj()) -> term()
  
positive.code:     {Props} = JsonObj,
      proplists:get_value(Key, Props).
      
  %% @spec extend(Key::binary(), Value::json_term(), JsonObj::json_obj()) -> json_obj()
  %% @doc extend a jsonobject by key, value 
  extend(Key, Value, JsonObj) ->
  
negative.code: -author('Benoît Chesneau <benoitc@e-engura.org>').
  -include("couchbeam.hrl").
  
  -export([set_value/3, get_value/2, delete_value/2, extend/2, extend/3,
          add_attachment/3, add_attachment/4, delete_inline_attachment/2]).
  
  %% @spec set_value(Key::key_val(), Value::term(), JsonObj::json_obj()) -> term()
  