anchor.diff:  		<<ScalarP_Valid:256>> when 1 < ScalarP_Valid, ScalarP_Valid < ?R ->
   			wait_for_commit4(RadiusFsm, AccessRequest, StateData);
   		_ScalarP_Out_of_Range ->
  -			NewEapID = EapID + 1,
  -			send_response(?EapFailure, NewEapID, <<>>, ?AccessReject, RadiusID,
  +			send_response(?EapFailure, EapID, <<>>, ?AccessReject, RadiusID,
   					RequestAuthenticator, Secret, RadiusFsm),
   			{stop, {shutdown, SessionID}, StateData}
   	end.
  
positive.code: 		#statedata{secret = Secret, eap_id = EapID, ks = Ks,
  		confirm_p = ConfirmP, confirm_s = ConfirmS,
  		session_id = SessionID} = StateData) ->
  	NewEapID = EapID + 1,
  	MK = ocs_eap_pwd:h([Ks, ConfirmP, ConfirmS]),
  	NewStateData = StateData#statedata{mk = MK},
  	send_response(?EapSuccess, NewEapID, <<>>, ?AccessAccept,
  			RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  	{stop, {shutdown, SessionID}, NewStateData}.
  
  
negative.code: 		eap_id = EapID, session_id = SessionID} = StateData) ->
  	case {ElementP, ScalarP} of
  		{ElementS, ScalarS} ->
  			send_response(?EapFailure, EapID, <<>>, ?AccessReject,
  					RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  			{stop, {shutdown, SessionID}, StateData};
  		_ ->
  