anchor.diff:  
   domain_dispatch(Home, DomainID, IsOwner, Msg) ->
           error_logger:info_report({"Dispatch", DomainID, IsOwner, Msg}),
  -        {Alive, S} = case ets:lookup(domain_table, DomainID) of
  -                [] -> {false, none};
  -                [{_, S0}] -> {is_process_alive(S0), S0}
  -        end,
  +        {Alive, S} = domain_lookup(DomainID),
           if Alive -> 
                   Server = S;
           true ->
  
positive.code:         end.
  
  
  %%% callback stubs
  
  terminate(_Reason, _State) -> {}.
  
negative.code:                 ets:insert(domain_table, {DomainID, Server})
          end,
          gen_server:cast(Server, Msg).
  
  domain_lookup(DomainID) ->
          case ets:lookup(domain_table, DomainID) of
                  [] -> {false, none};
                  [{_, Pid}] -> {is_process_alive(Pid), Pid}
          end.
  
  kill_domains() ->
          [gen_server:cast(S, {kill_domain, "ring changes"}) || 
  