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:     receive
          {'EXIT', _Pid, {timetrap_timeout, _, _}} ->
              ?P("ctrl-loop-1: "
                 "timetrap timeout while ~w lookupers remaining",
                 [length(Lookupers)]),
              exit({timetrap, {Op, Tag, length(Lookupers)}});
  
  	{'EXIT', Pid, Reason} ->
  	    case Reason of
  
negative.code:     end.
  
  lookup_loop(_, _Delay, Tag, _Parent,  0, _Hosts) ->
      ?P("lookup-loop: done with ~p", [Tag]),
      exit(Tag);
  lookup_loop([], Delay, Tag, Parent, Cnt, Hosts) ->
      ?P("lookup-loop: begin lookup (~p) again when count = ~p", [Tag, Cnt]),
      lookup_loop(Hosts, Delay, Tag, Parent, Cnt, Hosts);
  lookup_loop([H|Hs], Delay, Tag, Parent, Cnt, Hosts) ->
      ?P("lookup-loop: try lookup (~p, ~p) ~p", [Tag, Cnt, H]),
  