anchor.diff:  		_ScalarP_Valid when  1 =< ScalarP, ScalarP >= $R ->
   			ok;
   		_ScalarP_Out_of_Range ->
  -			send_radius_response(?Failure, NewEAPID, BodyData, ?AccessReject, RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  +			send_radius_response(?Failure, NewEAPID, BodyData, ?AccessReject, RadiusID,
  +					RequestAuthenticator, Secret, RadiusFsm),
   			{error, exit}
   	end.
   
  
positive.code: 			ExpectedSize ->
  				wait_for_commit2(BodyData, StateData);
  			_ ->
  				send_radius_response(?Failure, NewEAPID, BodyData, ?AccessReject, RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  				{error, exit}
  		end.
  %% @hidden
  
negative.code: 		secret = Secret, authenticator = RequestAuthenticator, eap_id = NewEAPID} = StateData) ->
  	case {ElementP, ScalarP} of
  		{ElementS, ScalarS} ->
  			send_radius_response(?Failure, NewEAPID, BodyData, ?AccessReject,
  					RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  			{error, exit};
  		_ ->
  			wait_for_commit3(BodyData, StateData)
  