anchor.diff:      end,
       ok.
   
  -host_and_addr() ->
  -    [{timetrap,{minutes,5}}|required(hosts)].
   
   %% Test looking up hosts and addresses. Use 'ypcat hosts'
   %% or the local eqivalent to find all hosts.
  +
  +host_and_addr() ->
  +    ?P("host_and_addr -> entry"),
  +    [{timetrap,{minutes,5}}|required(hosts)].
  +
   host_and_addr(Config) when is_list(Config) ->
       lists:foreach(fun try_host/1, get_hosts(Config)),
       ok.
   
   try_host({Ip0, Host}) ->
  -    {ok,Ip} = inet:getaddr(Ip0, inet),
  -    {ok,{hostent, _, _, inet, _, Ips1}} = inet:gethostbyaddr(Ip),
  +    {ok, Ip}                             = inet:getaddr(Ip0, inet),
  +    {ok,{hostent, _, _, inet, _, Ips1}}  = inet:gethostbyaddr(Ip),
       {ok,{hostent, _, _, inet, _, _Ips2}} = inet:gethostbyname(Host),
       true = lists:member(Ip, Ips1),
       ok.
  
positive.code:                        "~n   ~p", [Pid, Reason]),
  		    ct:fail(?F("Unexpected exit from ~p", [Pid]))
  	    end
      after Interval ->
              ?P("ctrl-loop-1: "
                 "timeout => (maybe) attempt control ~p when"
  
negative.code:     {ok, Hostname} = inet:gethostname(),
      {ok, _}        = inet:gethostbyname(Hostname),
      Hosts          =
          [Hostname|[H || {_,H} <- get_hosts(Config)]
           ++[H++D || H <- ["www.","www1.","www2.",""],
          	    D <- ["erlang.org","erlang.se"]]
           ++[H++"cslab.ericsson.net" || H <- ["morgoth.","hades.","styx."]]],
      ?P("ctrl-1: Hosts: "
         "~n   ~p", [Hosts]),
      %% Spawn some processes to do parallel lookups while
  