anchor.diff:      gen_server:cast(?MODULE, {join, Node}),
       {reply, ok, State};
   
  -handle_call({inject_partition, TTL}, _From,
  -            #state{myself=Myself}=State) ->
  -    handle_message({inject_partition, Myself, TTL}, 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,
  
positive.code:          receive_message/1,
           decode/1,
           reserve/1,
           inject_partition/1]).
  
  %% debug.
  -export([active/0,
  
negative.code:     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
  