anchor.diff:  %% @hidden
   wait_for_commit1(RadiusFsm, #radius{id = RadiusID,
   		authenticator = RequestAuthenticator} = AccessRequest,
  -		BodyData, #statedata{eap_id = NewEapID, secret = Secret,
  +		BodyData, #statedata{eap_id = EapID, secret = Secret,
   		scalar_s = ScalarS, element_s = ElementS,
   		session_id = SessionID} = StateData) ->
   	ExpectedSize = size(<<ElementS/binary, ScalarS/binary>>),
  
positive.code: wait_for_confirm1(RadiusFsm, #radius{id = RadiusID,
  		authenticator = RequestAuthenticator} = AccessRequest,
  		#statedata{secret = Secret, confirm_s = ConfirmS,
  		eap_id = NewEapID, confirm_p = ConfirmP} = StateData) ->
  	ExpectedSize = size(ConfirmS),
  	case size(ConfirmP) of 
  		ExpectedSize ->
  			wait_for_confirm2(RadiusFsm, AccessRequest, StateData);
  		_ ->
  			send_response(?EapFailure, NewEapID, <<>>, ?AccessReject, RadiusID,
  					RequestAuthenticator, Secret, RadiusFsm),
  			{error, exit}
  
negative.code: 		ExpectedSize ->
  			wait_for_commit2(RadiusFsm, AccessRequest, StateData);
  		_ ->
  			NewEapID = EapID + 1,
  			send_response(?EapFailure, NewEapID, <<>>, ?AccessReject,
  					RadiusID, RequestAuthenticator, Secret, RadiusFsm),
  			{stop, {shutdown, SessionID}, StateData}
  