anchor.diff:  %%--------------------------------------------------------------------
   
   internal_put(Key, Context, Value, #mediator{config=Config}) ->
  -  ?prof(internal_put),
  +  ?prof(mediator_put),
     {N,R,W} = unpack_config(Config),
  +  ?prof(membership),
     Servers = membership:servers_for_key(Key),
  +  ?forp(membership),
  +  ?prof(increment),
     Incremented = increment(Context),
  +  ?forp(increment),
     MapFun = fun(Server) ->
       storage_server:put(Server, Key, Incremented, Value)
     end,
  
positive.code:     length(Good) >= W -> {ok, length(Good)};
      true -> {failure, error_message(Good, Bad, N, W)}
    end,
    ?forp(internal_put),
    Final.
    
  internal_get(Key, #mediator{config=Config}) ->
    ?prof(internal_get),
    {N,R,W} = unpack_config(Config),
    Servers = membership:servers_for_key(Key),
    MapFun = fun(Server) ->
      storage_server:get(Server, Key)
    end,
  
negative.code: increment({Ref, Context}) ->
    vector_clock:increment(Ref, Context);
    
  increment(undefined) ->
    vector_clock:create(pid_to_list(self()));
    
  increment(Context) ->
    vector_clock:increment(self(), Context).
  