anchor.diff:      ?line ok = file:delete(Archive),
       ok.
   
  -%% Misc. functions
  +%%%
  +%%% Helper functions.
  +%%%
  +
  +complete_start_node(Name) ->
  +    BootPid = start_boot_server(),
  +    Node = start_node_using_inet(Name),
  +    wait_really_started(Node, 25),
  +    {ok, Node, BootPid}.
  +
  +start_boot_server() ->
  +    %% Many linux systems define:
  +    %%   127.0.0.1 localhost
  +    %%   127.0.1.1 somehostname
  +    %% Therefore, to allow the tests to work on those kind of systems,
  +    %% also include "localhost" in the list of allowed hosts.
  +
  +    Hosts = [host(),ip_str("localhost")],
  +    {ok,BootPid} = erl_boot_server:start_link(Hosts),
  +    BootPid.
  +
  +start_node_using_inet(Name) ->
  +    start_node_using_inet(Name, []).
  +
  +start_node_using_inet(Name, Opts) ->
  +    Host = host(),
  +    IpStr = ip_str(Host),
  +    Args = " -loader inet -hosts " ++ IpStr,
  +    {ok,Node} = start_node(Name, Args, Opts),
  +    Node.
  +
   
   ip_str({A, B, C, D}) ->
       lists:concat([A, ".", B, ".", C, ".", D]);
  
positive.code: 			"but start the boot server afterwards."];
  inet_coming_up(Config) when is_list(Config) ->
      Name = erl_prim_test_inet_coming_up,
      Cookie = atom_to_list(erlang:get_cookie()),
      Host = host(),
      IpStr = ip_str(Host),
      LFlag = get_loader_flag(os:type()),
      Args = LFlag ++ 
  	" -hosts " ++ IpStr ++
  	" -setcookie " ++ Cookie,
      {ok, Node} = start_node(Name, Args, [{wait, false}]),
  
      %% Wait a while, then start boot server, and wait for node to start.
      test_server:sleep(test_server:seconds(6)),
      io:format("erl_boot_server:start_link([~p]).", [Host]),
      {ok, BootPid} = erl_boot_server:start_link([Host]),
      wait_really_started(Node, 25),
  
      %% Check loader argument, then cleanup.
  
negative.code:     ?line exit(BootPid, kill),
      ok.
  
  local_archive(suite) ->
      [];
  local_archive(doc) ->
  