anchor.diff:  	 %% higher level
   	 wait_for_result/2,
   	 wait_for_result/3,
  -	 wait_for_msg/4
  +	 wait_for_msg/4,
  +	 next_event/2
   	]).
   
   start_node() ->
  
positive.code: 	ok -> ok
      end.
  
  
  %% nifty interface
  wait_for_result(Handler, Mote) ->
      wait_for_result(Handler, Mote, 1000).
  
  
negative.code: 	{running, _} ->
  	    S = mote_read(Handler, Mote),
  	    NS = Acc++S,
  	    case re:run(NS, "DEBUG.*\n") of
  		{match, [{_, End}]} ->
  		    io:format("~s", [NS]),
  		    ok = simulation_step_ms(Handler),
  		    wait_for_result(Handler, Mote, T-1, Msg, string:substr(NS, End+1));
  		_ ->
  		    case re:run(NS, Msg) of
  			{match, _} ->
  			    NS;
  			nomatch ->
  			    ok = simulation_step_ms(Handler),
  			    wait_for_result(Handler, Mote, T-1, Msg, NS)
  		    end
  	    end;
  	_ -> 
  	    undef
  