anchor.diff:      %% request.
       case TTL > 0 of
           true ->
  -            [propagate_partition(Myself, TTL - 1, Peer, Connections) ||
  -                                 Peer <- members(Active)];
  +            [propagate_partition_injection(Myself, TTL - 1, Peer, Connections)
  +             || Peer <- members(Active)];
           false ->
               ok
       end,
  
positive.code: reserve(Tag) ->
      gen_server:call(?MODULE, {reserve, Tag}, infinity).
  
  %% @doc Reserve a slot for the particular tag.
  inject_partition(Origin, TTL) ->
      gen_server:call(?MODULE, {inject_partition, Origin, TTL}, infinity).
  
  %%%===================================================================
  %%% debugging callbacks
  
negative.code:     gen_server:cast(?MODULE, {join, Node}),
      {reply, ok, State};
  
  handle_call({resolve_partition, Reference}, _From, State) ->
      handle_message({resolve_partition, Reference}, State);
  
  handle_call({inject_partition, Origin, TTL}, _From,
              #state{connections=Connections}=State) ->
      Reference = make_ref(),
  