anchor.diff:  		ExpectedSize ->
   			wait_for_confirm2(RadiusFsm, AccessRequest, StateData);
   		_ ->
  -			NewEapID = EapID + 1,
  -			send_response(?EapFailure, NewEapID, <<>>, ?AccessReject, RadiusID,
  +			send_response(?EapFailure, EapID, <<>>, ?AccessReject, RadiusID,
   					RequestAuthenticator, Secret, RadiusFsm),
   			{error, exit}
   	end.
  
positive.code: 		ExpectedSize ->
  			wait_for_commit2(RadiusFsm, AccessRequest, StateData);
  		_ ->
  			NewEapID = EapID + 1,
  			send_response(?EapFailure, NewEapID, <<>>, ?AccessReject,
  					RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  			{stop, {shutdown, SessionID}, StateData}
  	end.
  
negative.code: 		#statedata{secret = Secret, eap_id = EapID, ks = Ks,
  		confirm_p = ConfirmP, confirm_s = ConfirmS,
  		session_id = SessionID} = StateData) ->
  	MK = ocs_eap_pwd:h([Ks, ConfirmP, ConfirmS]),
  	NewStateData = StateData#statedata{mk = MK},
  	send_response(?EapSuccess, EapID, <<>>, ?AccessAccept,
  			RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  	{stop, {shutdown, SessionID}, NewStateData}.
  
  