anchor.diff:  		_ScalarP_Valid when  1 =< ScalarP, ScalarP >= $R ->
   			ok;
   		_ScalarP_Out_of_Range ->
  -			send_response(?EapFailure, NewEapID, BodyData, ?AccessReject, RadiusID,
  +			send_response(?EapFailure, NewEapID, <<>>, ?AccessReject, RadiusID,
   					RequestAuthenticator, Secret, RadiusFsm),
   			{error, exit}
   	end.
  
positive.code: 		eap_id = NewEapID} = StateData) ->
  	case {ElementP, ScalarP} of
  		{ElementS, ScalarS} ->
  			send_response(?EapFailure, NewEapID, BodyData, ?AccessReject,
  					RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  			{error, exit};
  		_ ->
  
negative.code: 					element_s = ElementS},
  				{next_state, wait_for_commit, NewStateData, ?TIMEOUT};
  			error ->
  				send_response(?EapFailure, NewEapID, <<>>, ?AccessReject,
  					RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  				{next_state, wait_for_id, StateData, 0}
  		end
  