anchor.diff:      PL = proplists:delete(TID, R),
       {next_state, idle, S#state { response = PL }, timer:seconds(3600)};
   %% The idle state is when we have no outstanding requests running with the server
  -idle({announce, Requestor, PL, R}, #state { announce_stack = Q } = S) ->
  -    Tid = request_connid(0),
  -    {next_state, request_conn, S#state { announce_stack = [{announce, Requestor, PL, R} | Q],
  -				         conn_id = {req, Tid} }};
   idle(Event, S) ->
       ?INFO([unknown_msg, idle, Event, ?MODULE]),
       {next_state, idle, S, timer:seconds(3600)}.
  
positive.code: 	none ->
  	    %% Stray
  	    {next_state, has_conn, S};
  	{announce, _, _, _} = AnnReq ->
  	    NPL = proplists:delete(Tid, R),
  	    NewReq = announce_requests(ConnId, [AnnReq], N),
  	    %% TODO: Consider messaging back the fail here
  
negative.code:     ?INFO([unknown_msg, has_conn, Event, ?MODULE]),
      {next_state, has_conn, S}.
  
  idle({announce, PL}, From, #state { announce_stack = Q } = S) ->
      Tid = request_connid(0),
      {next_state, request_conn,
       S#state { announce_stack = [{announce, PL, From} | Q],
  	       conn_id = {req, Tid} }};
  idle(_Event, _F, S) ->
      {reply, ok, idle, S}.
  
  request_conn({announce, PL}, From, #state { announce_stack = Q } = S) ->
      {next_state, request_conn,
       S#state { announce_stack = [{announce, PL, From} | Q]}};
  request_conn(_E, _F, S) ->
      {reply, ok, request_conn, S}.
  
  has_conn({announce, PL}, From, #state { response = Resp } = S) ->
      Ares = announce_requests(S#state.conn_id, [{announce, PL, From}]),
      {next_state, has_conn, S#state { response = Ares ++ Resp }};
  has_conn(_E, _F, S) ->
      {reply, ok, has_conn, S}.
  
  