anchor.diff:      ?line Self= self(),
       ?line TermToSend= {call, Self, "Test"},
       ?line F= fun() ->
  -		     timer:sleep(500),
  -		     {any, EINode} ! TermToSend,
  -		     Self ! sent_ok,
  +		     case waitfornode("c42",20) of
  +			 true ->
  +			     {any, EINode} ! TermToSend,
  +			     Self ! sent_ok;
  +			 false ->
  +			     Self ! never_published
  +		     end,
   		     ok
   	     end,
   
  
positive.code: 	    || I <- lists:seq(0, N-1) ],
      ok.
  
  send_rec_einode(N, TestServerPid) ->
      ?line Myname= hd(tl(string:tokens(atom_to_list(node()), "@"))),
      ?line EINode= list_to_atom("eiacc" ++ integer_to_list(N) ++ "@" ++ Myname),
      ?line io:format("EINode ~p ~n",  [EINode]),
      ?line Self= self(),
      ?line timer:sleep(10*1000),
      ?line {any, EINode} ! Self,
      ?line receive
  	      {N,_}=X ->
  
negative.code:     ?line P = runner:start(?interpret),
      ?line 0 = ei_connect_init(P, 42, erlang:get_cookie(), 0),
  
      ?line Myname= hd(tl(string:tokens(atom_to_list(node()), "@"))),
      ?line io:format("Myname ~p ~n",  [Myname]),
      ?line EINode= list_to_atom("c42@"++Myname),
  