anchor.diff:                         "~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"
  
positive.code:     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(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,{hostent, _, _, inet, _, _Ips2}} = inet:gethostbyname(Host),
      true = lists:member(Ip, Ips1),
      ok.
  
negative.code:     receive
          {'EXIT', _Pid, {timetrap_timeout, _, _}} ->
              ?P("ctrl-loop-1: "
                 "timetrap timeout while ~w lookupers remaining: "
                 "~n   Op:       ~p"
                 "~n   Interval: ~p"
                 "~n   Tag:      ~p",
                 [length(Lookupers), Op, Interval, Tag]),
              if
                  (Op =/= undefined) ->
                      exit({timetrap, {Op, Tag, length(Lookupers)}});
                  true ->
                      exit({timetrap, {Tag, length(Lookupers)}})
              end;
  
  	{'EXIT', Pid, Reason} ->
  	    case Reason of
  