anchor.diff:           receive_message/1,
            decode/1,
            reserve/1,
  -         inject_partition/1]).
  +         inject_partition/2]).
   
   %% debug.
   -export([active/0,
  
positive.code:     gen_server:call(?MODULE, {reserve, Tag}, infinity).
  
  %% @doc Reserve a slot for the particular tag.
  inject_partition(TTL) ->
      gen_server:call(?MODULE, {inject_partition, TTL}, infinity).
  
  %%%===================================================================
  %%% debugging callbacks
  
negative.code:     gen_server:cast(?MODULE, {join, Node}),
      {reply, ok, State};
  
  handle_call({inject_partition, Origin, _TTL} = Message, _From,
              #state{connections=Connections}=State) ->
      Result = do_send_message(Origin, Message, Connections),
      {reply, Result, State};
  
  handle_call({reserve, Tag}, _From,
              #state{reserved=Reserved0,
  