anchor.diff:  %% -------- Initialisation functions ------------------------
   
   init_node(Name, LongOrShortNames) ->
  -    {NameWithoutHost,_Host} = lists:splitwith(fun($@)->false;(_)->true end,
  -				  atom_to_list(Name)),
  +    {NameWithoutHost,_Host} = split_node(Name),
       case create_name(Name, LongOrShortNames, 1) of
   	{ok,Node} ->
   	    case start_protos(list_to_atom(NameWithoutHost),Node) of
  
positive.code: 		    end
  	    end,
      {Head,Host1}.
  
  %%
  %%
  
negative.code:     end.
  
  create_hostpart(Name, LongOrShortNames) ->
      {Head,Host} = split_node(Name),
      Host1 = case {Host,LongOrShortNames} of
  		{[$@,_|_],longnames} ->
  		    {ok,Host};
  