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