anchor.diff:      %% connection with the peer.
   
       try
  -        2001 == RC
  +        ?IS_SUCCESS(RC)
               orelse ?THROW(RC),
           [] == SApps
               andalso ?THROW(no_common_application),
  
positive.code: -define(NO_INBAND_SECURITY, 0).
  -define(TLS, 1).
  
  -define(LOOP_TIMEOUT, 2000).
  
  %% RFC 3588:
  %%
  
negative.code:     catch
          ?FAILURE(Reason) -> close({'CEA', Reason, Caps, DPkt}, S)
      end.
  %% 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
  
  