anchor.diff:  	{timeout, StopOpts} ->
   	    spawn(?MODULE, stop, [StopOpts]),
   	    loop(NodeInfo, SessionInfo);
  +        {node_overloaded, Node} ->
  +            io:format("Overload check activated on node: ~p.~n", [Node]),
  +            {Overloaded, SI} = {proplists:get_value(overloaded, SessionInfo, []),
  +                                lists:keydelete(overloaded, 1, SessionInfo)},
  +	    loop(NodeInfo, [{overloaded, [Node|Overloaded]} | SI]);
  +        {get_overloaded, Pid} ->
  +            Pid ! proplists:get_value(overloaded, SessionInfo, []),
  +            loop(NodeInfo, SessionInfo);
   	trace_started ->
   	    case proplists:get_value(timer, SessionInfo) of
   		undefined -> ok;
  
positive.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %%% Set trace flags on processes
  p(Procs0,Flags0) ->
      store(p,[Procs0,Flags0]),
      no_store_p(Procs0,Flags0).
  no_store_p(Procs0,Flags0) ->
  
negative.code: 	undefined ->
  	    Parent = self(),
  	    Pid = spawn(fun() -> init(Parent, SessionInfo) end),
  	    receive {started,Pid} -> ok end,
              Pid;
  	Pid when is_pid(Pid) ->
  	    Pid
      end.
  
  
  