anchor.diff:  		secret = Secret, authenticator = RequestAuthenticator} = StateData) ->
   	case {ElementP, ScalarP} of
   		{ElementS, ScalarS} ->
  -			send_reject(RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  +			send_radius_reject(RadiusID, RequestAuthenticator, Secret, RadiusFsm),
   			{error, exit};
   		_ ->
   			wait_for_commit3(StateData)
  
positive.code: 			ExpectedSize ->
  				wait_for_commit2(StateData);
  			_ ->
  				send_reject(RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  				{error, exit}
  		end.
  %% @hidden
  
negative.code: 
  %% @doc Sends an RADIUS-Access/Reject packet to peer
  %% @hidden
  send_radius_reject(RadiusID, RequestAuthenticator, Secret, RadiusFsm) ->
  	AttributeList0 = radius_attributes:new(),
  	AttributeList1 = radius_attributes:store(?MessageAuthenticator,
  			<<0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0>>, AttributeList0),
  