anchor.diff:      receive
           {'EXIT', _Pid, {timetrap_timeout, _, _}} ->
               ?P("ctrl-loop-1: "
  -               "timetrap timeout while ~w lookupers remaining",
  -               [length(Lookupers)]),
  -            exit({timetrap, {Op, Tag, length(Lookupers)}});
  +               "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
  
positive.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 ~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]),
  
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
  