anchor.diff:  %% --------------------------------------------------------------------
   %%% Internal functions
   %% --------------------------------------------------------------------
  -install_event_handlers(Node, EventManagerName, InstanceName) ->
  +install_event_handlers(Node, HandlerModule, EventManagerName, InstanceName) ->
       try gen_event:which_handlers({EventManagerName, Node}),
  -        HandlerModule=logmachine_event_handler,
           upload_module(Node, HandlerModule),
           ok=gen_event:add_sup_handler(
                {EventManagerName, Node}, % EventMgrRef
  
positive.code: %% --------------------------------------------------------------------
  init({locator, InstanceName}) ->
  	try EventManagerRef=logmachine_app:get_instance_env(InstanceName, locate_em),
  		erlang:process_flag(trap_exit, true),
          self() ! {retry, node()},
  		ok=net_kernel:monitor_nodes(true, [{node_type, visible}, nodedown_reason]),
  		{ok, #state{instance=InstanceName,em_name=EventManagerRef}}
  	catch 
  		_:{noconf, _EnvVar} -> ignore
  	end.
  
negative.code:     handle_info(Msg, State).
  
  handle_info({retry, Node}, 
              #state{instance=InstanceName, em_name= {local, EventManagerName}, handler = HandlerModule}=State)
    when Node == node() ->
      install_event_handlers(Node, HandlerModule, EventManagerName, InstanceName),
      {noreply, State};
  handle_info({retry, Node}, 
              #state{instance=InstanceName, em_name= {global, EventManagerName}, handler = HandlerModule}=State) ->
      install_event_handlers(Node, HandlerModule, EventManagerName, InstanceName),
      {noreply, State};
  handle_info({retry, Node}, 
              #state{instance=InstanceName, em_name= {global, EventManagerName, Constraints}, handler = HandlerModule}=State) ->
      Allowed=
          case Constraints of
              {inc, NodeList} ->
  