anchor.diff:      length(Good) >= W -> {ok, length(Good)};
       true -> {failure, error_message(Good, Bad, N, W)}
     end,
  -  ?forp(internal_put),
  +  ?forp(mediator_put),
     Final.
     
   internal_get(Key, #mediator{config=Config}) ->
  -  ?prof(internal_get),
  +  ?prof(mediator_get),
     {N,R,W} = unpack_config(Config),
  +  ?prof(membership),
     Servers = membership:servers_for_key(Key),
  +  ?forp(membership),
     MapFun = fun(Server) ->
       storage_server:get(Server, Key)
     end,
  
positive.code: increment({Ref, Context}) ->
    vector_clock:increment(Ref, Context);
    
  increment(Context) ->
    vector_clock:increment(node(), Context).
  
negative.code: %%--------------------------------------------------------------------
  
  internal_put(Key, Context, Value, #mediator{config=Config}) ->
    ?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,
  