anchor.diff:  wait_for_commit({eap_response, EAPPacket}, #statedata{radius_id = RadiusID, password = Password,
   		pwe = PWE, element_s = ElementS, scalar_s = ScalarS, scalar_p = ScalarP,
   		element_p = ElementP, authenticator = RequestAuthenticator, secret = Secret,
  -		radius_fsm = RadiusFsm, grp_dec = GrpDec, rand_func = RandomFunc,
  +		eap_fsm = RadiusFsm, grp_dec = GrpDec, rand_func = RandomFunc,
   		prf = PRF } = StateData)->
   	try 
   		EAPData = ocs_eap_codec:eap_packet(EAPPacket),
  
positive.code: wait_for_confirm(timeout, #statedata{session_id = SessionID} = StateData)->
  	{stop, {shutdown, SessionID}, StateData};
  wait_for_confirm({eap_response, EAPPacket}, #statedata{radius_id = RadiusID,
  		authenticator = RequestAuthenticator, secret = Secret, radius_fsm = RadiusFsm} = StateData)->
  	try 
  		EAPData = ocs_eap_codec:eap_packet(EAPPacket),
  		#eap_packet{code = ?Response, identifier = EapID, data = Data} = EAPData,
  
negative.code: %%		gen_fsm:send_event/2} in the <b>idle</b> state.
  %% @@see //stdlib/gen_fsm:StateName/2
  %% @private
  idle(timeout, #statedata{eap_fsm = RadiusFsm, radius_id = RadiusID,
  		authenticator = RequestAuthenticator, secret = Secret} = StateData) ->
  	EapID = 1,
  	Token = crypto:rand_bytes(4),
  