anchor.diff:      gen_server:cast(?MODULE, {join, Node}),
       {reply, ok, State};
   
  -handle_call({inject_partition, Origin, _TTL} = Message, _From,
  +handle_call({inject_partition, Origin, TTL}, _From,
               #state{connections=Connections}=State) ->
  -    Result = do_send_message(Origin, Message, Connections),
  -    {reply, Result, State};
  +    Reference = make_ref(),
  +
  +    Result = do_send_message(Origin,
  +                             {inject_partition, Reference, Origin, TTL},
  +                             Connections),
  +
  +    case Result of
  +        {error, Error} ->
  +            {reply, {error, Error}, State};
  +        ok ->
  +            {reply, {ok, Reference}, State}
  +    end;
   
   handle_call({reserve, Tag}, _From,
               #state{reserved=Reserved0,
  
positive.code: %%%===================================================================
  
  %% @private
  handle_message({inject_partition, Origin, TTL},
                 #state{active=Active,
                        myself=Myself,
                        partitions=Partitions0,
  
negative.code: 
  handle_call({forward_message, Name, ServerRef, Message}, _From,
              #state{connections=Connections0, partitions=Partitions}=State) ->
      case lists:keymember(Name, 2, Partitions) of
          true ->
              {reply, {error, partitioned}, State};
          false ->
  