anchor.diff:      TestDataLine1BinUtf = unicode:characters_to_binary(TestDataLine1),
       TestDataLine1BinLatin = list_to_binary(TestDataLine1),
   
  -    N2List = create_nodename(), 
  -    MyNodeList = atom_to_list(node()), 
  +    {ok,N2List} = create_nodename(),
  +    MyNodeList = atom2list(node()),
       register(io_proto_suite,self()),
       AM1 = spawn(?MODULE,Machine,
   		[MyNodeList, "io_proto_suite", N2List]),
  
positive.code:     TestDataLine1BinUtf = unicode:characters_to_binary(TestDataLine1),
      TestDataLine1BinLatin = list_to_binary(TestDataLine1),
  
      N2List = create_nodename(), 
      MyNodeList = atom_to_list(node()), 
      register(io_proto_suite,self()),
      AM1 = spawn(?MODULE,Machine,
  		[MyNodeList, "io_proto_suite", N2List]),
  
negative.code:     case file:read_file_info(filename:join(["/tmp",NN])) of
  	{error,enoent} ->
  	    Host = lists:nth(2,string:tokens(atom_to_list(node()),"@")),
  	    {ok,NN++"@"++Host};
  	_ ->
  	    create_nodename(X+1)
      end.
  