anchor.diff:  						   {packet,2}]) of
   	{ok,Sock} -> 
   	    BinResult = term_to_binary(Result),
  -	    ok = gen_tcp:send(Sock,[1|BinResult]),
  +	    ok = gen_tcp:send(Sock,tag_trace_message(BinResult)),
   	    trc_loop(Sock,Patterns,Type);
   	_else ->
   	    ok
  
positive.code: %%%
  stop_tracer_node(Sock) ->
      Bin = term_to_binary(id(stop)),
      ok = gen_tcp:send(Sock, [1|Bin]),
      receive {tcp_closed,Sock} -> gen_tcp:close(Sock) end,
      ok.
      
  
negative.code: %%%
  trace_nodes(Sock,Nodes) ->
      Bin = term_to_binary({add_nodes,Nodes}),
      ok = gen_tcp:send(Sock, tag_trace_message(Bin)),
      receive_ack(Sock).
  
  
  