anchor.diff:  				_ ->
   				debug:log("announcing to ~p on ~p", [Pid, Node]),
   				Pid ! #node_announce{sender=self(), pid=self(), node=node(), state=State}
  -				%state_mon ! #state_change{sender=self(), node=node(), objtype=?MODULE, obj=Node, prev_state=none, new_state=up, ts=timestamp:now_i()}
   			end,
   			announce(T, State);
   		true ->
  
positive.code: 
  -export([start/0]).
  -export([init/0]).
  
  -include("include/erlmon.hrl").
  
  
negative.code: 
  find_node_pid(Node) when is_atom(Node) ->
  	rpc:call(Node, erlang, whereis, [node]).
  
  monitor_node(Node) ->
  	debug:log("node: monitoring ~p (~p)", [Node, self()]),
  	state_mon ! #state_change{sender=self(), node=node(), objtype=?MODULE, obj=Node, prev_state=down, new_state=up, ts=timestamp:now_i()},
  	erlang:monitor_node(Node, true),
  	receive
  		{nodedown, Node} ->
  			debug:log("node: received nodedown for ~p (~p)", [Node, self()]),
  			state_mon ! #state_change{sender=self(), node=node(), objtype=?MODULE, obj=Node, prev_state=up, new_state=down, ts=timestamp:now_i()};
  		M ->
  			debug:log("node:UNKNOWN: ~p (~p)", [M, self()])
  	end.
  