anchor.diff:  	
   	{ok,Sock} -> 
   	    Started = term_to_binary({started, node(), Version, VsnStr}),
  -	    ok = gen_tcp:send(Sock, [1|Started]),
  +	    ok = gen_tcp:send(Sock, tag_trace_message(Started)),
   	    receive _Anyting ->
   		    gen_tcp:close(Sock),
   		    erlang:halt()
  
positive.code: %%%
  trace_nodes(Sock,Nodes) ->
      Bin = term_to_binary({add_nodes,Nodes}),
      ok = gen_tcp:send(Sock, [1|Bin]),
      receive_ack(Sock).
  
  
  
negative.code:     end.
  
  
  -compile({inline, [tag_trace_message/1]}).
  -dialyzer({no_improper_lists, tag_trace_message/1}).
  tag_trace_message(M) ->
      [1|M].
  
  % start_which_node(Optlist) -> hostname
  start_which_node(Optlist) ->
  