anchor.diff:      catch
           ?FAILURE(Reason) -> close({'CEA', Reason, Caps, DPkt}, S)
       end.
  -%% Check more than the result code since the peer could send 2001
  -%% regardless.
  +%% Check more than the result code since the peer could send success
  +%% regardless. If not 2001 then a peer_up callback could do anything
  +%% required. It's not unimaginable that a peer agreeing to TLS after
  +%% capabilities exchange could send DIAMETER_LIMITED_SUCCESS = 2002,
  +%% even if this isn't required by RFC 3588.
   
   %% recv_CEA/2
   
  
positive.code:     %% connection with the peer.
  
      try
          2001 == RC
              orelse ?THROW(RC),
          [] == SApps
              andalso ?THROW(no_common_application),
  
negative.code: -define(NO_INBAND_SECURITY, 0).
  -define(TLS, 1).
  
  %% A 2xxx series Result-Code. Not necessarily 2001.
  -define(IS_SUCCESS(N), 2 == (N) div 1000).
  
  %% RFC 3588:
  %%
  