anchor.diff:      handle_info(Msg, State).
   
   handle_info({retry, Node}, 
  -            #state{instance=InstanceName, em_name= {local, EventManagerName}}=State) when Node == node() ->
  -    install_event_handlers(Node, EventManagerName, InstanceName),
  +            #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}}=State) ->
  -    install_event_handlers(Node,EventManagerName, InstanceName),
  +            #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}}=State) ->
  +            #state{instance=InstanceName, em_name= {global, EventManagerName, Constraints}, handler = HandlerModule}=State) ->
       Allowed=
           case Constraints of
               {inc, NodeList} ->
  
positive.code: 
  -import(logmachine_util,[make_name/1]).
  
  -record(state, {em_name,instance}).
  
  %% ====================================================================
  %% External functions
  
negative.code: %% --------------------------------------------------------------------
  %%% Internal functions
  %% --------------------------------------------------------------------
  install_event_handlers(Node, HandlerModule, EventManagerName, InstanceName) ->
      try gen_event:which_handlers({EventManagerName, Node}),
          upload_module(Node, HandlerModule),
          ok=gen_event:add_sup_handler(
               {EventManagerName, Node}, % EventMgrRef
  