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: 		{ok,{add_nodes,Nodes}} -> 
  		    add_nodes(Nodes,Patterns,Type),
  		    Bin = term_to_binary(id(ok)),
  		    ok = gen_tcp:send(Sock, [1|Bin]),
  		    trc_loop(Sock,Patterns,Type);
  		{ok,stop} -> 
  		    ttb:stop(),
  
negative.code: 	
  	{ok,Sock} -> 
  	    Started = term_to_binary({started, node(), Version, VsnStr}),
  	    ok = gen_tcp:send(Sock, tag_trace_message(Started)),
  	    receive _Anyting ->
  		    gen_tcp:close(Sock),
  		    erlang:halt()
  