anchor.diff:  
   start_mbox(Addr) ->
       case start_link(Addr) of
  -        {ok, Pid} -> {ok, #mbox{addr = Addr, pid = Pid}};
  +        {ok, Pid} -> {ok, #mbox{addr = Addr, pid = Pid,
  +                                started = erlang:now()}};
           Error     -> Error
       end.
  -
  -%% Child/worker process implementation, where we have one child/worker
  -%% process per downstream Addr or MBox.  Note, this can be a
  -%% child/worker in a supervision tree.
   
   start_link(Addr) ->
       Location = mc_addr:location(Addr),
  
positive.code: 
  monitor(Addr) ->
      case gen_server:call(?MODULE, {pid, Addr}) of
          {ok, MBoxPid} -> {ok, erlang:monitor(process, MBoxPid)};
          Error         -> Error
      end.
  
  demonitor(undefined)   -> ok;
  demonitor(MonitorRefs) ->
  
negative.code:             case RV of
                  {ok, _}    -> loop(Addr, Sock);
                  {ok, _, _} -> loop(Addr, Sock);
                  _Error     -> gen_tcp:close(Sock)
              end;
          close ->
              gen_tcp:close(Sock)
  