anchor.diff:  increment({Ref, Context}) ->
     vector_clock:increment(Ref, Context);
     
  +increment(undefined) ->
  +  vector_clock:create(pid_to_list(self()));
  +  
   increment(Context) ->
  -  vector_clock:increment(node(), Context).
  +  vector_clock:increment(self(), Context).
  
positive.code:     NotFound -> {ok, not_found};
      true -> {failure, error_message(Good, Bad, N, R)}
    end,
    ?forp(internal_get),
    Final.
    
  internal_has_key(Key, #mediator{config=Config}) ->
  
negative.code:     length(Good) >= W -> {ok, length(Good)};
      true -> {failure, error_message(Good, Bad, N, W)}
    end,
    ?forp(mediator_put),
    Final.
    
  internal_get(Key, #mediator{config=Config}) ->
    ?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,
  