anchor.diff:      end.
   
   do_get_object(Bucket, Key, Mod, ModState) ->
  -    case mod_capability_uses_r_object(Mod, ModState, Bucket) of
  +    case uses_r_object(Mod, ModState, Bucket) of
           true ->
               Mod:get_object(Bucket, Key, false, ModState);
           false ->
  
positive.code:     end.
  
  do_get_binary(Bucket, Key, Mod, ModState) ->
      case mod_capability_uses_r_object(Mod, ModState, Bucket) of
          true ->
              Mod:get_object(Bucket, Key, true, ModState);
          false ->
  
negative.code:             {Mod:put(Bucket, Key, IndexSpecs, EncodedVal, ModState), EncodedVal}
      end.
  
  uses_r_object(Mod, ModState, Bucket) ->
      {ok, Capabilities} = Mod:capabilities(Bucket, ModState),
      lists:member(uses_r_object, Capabilities).
  
  