anchor.diff:  		session_id = SessionId, auth_req_type = AuthReqType,
   		start = #diameter_eap_app_DER{'EAP-Payload' = []} = Request,
   		origin_host = OHost, origin_realm = ORealm,
  -		diameter_port_server = PortServer} = StateData) ->
  +		diameter_port_server = PortServer, sup = Sup} = StateData) ->
  +	Children = supervisor:which_children(Sup),
  +	{_, AucFsm, _, _} = lists:keyfind(ocs_eap_aka_auc_fsm, 1, Children),
   	EapData = ocs_eap_codec:eap_aka(#eap_aka_identity{fullauth_id_req = true}),
  +	NewStateData = StateData#statedata{start = undefined,
  +			auc_fsm = AucFsm, id_req = full},
   	EapPacket = #eap_packet{code = request,
   			type = ?AKA, identifier = EapID, data = EapData},
   	send_diameter_response(SessionId, AuthReqType,
   			?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH', OHost, ORealm,
   			EapPacket, PortServer, Request, StateData),
  -	{next_state, identity, StateData, ?TIMEOUT};
  +	{next_state, identity, NewStateData, ?TIMEOUT};
   eap_start(timeout, #statedata{sup = Sup, eap_id = EapID,
   		session_id = SessionId, auth_req_type = AuthReqType,
   		start = #diameter_eap_app_DER{'EAP-Payload' = EapMessage} = Request,
  
positive.code: identity({#radius{id = RadiusID, authenticator = RequestAuthenticator,
  		attributes = RequestAttributes}, RadiusFsm},
  		#statedata{eap_id = EapID, session_id = SessionID,
  		auc_fsm = AucFsm} = StateData) ->
  	NewStateData = StateData#statedata{radius_fsm = RadiusFsm},
  	try
  		EapMessage = radius_attributes:fetch(?EAPMessage, RequestAttributes),
  		case ocs_eap_codec:eap_packet(EapMessage) of
  			#eap_packet{code = response, type = ?AKA,
  					identifier = EapID, data = Data} ->
  				NewEapID = (EapID rem 255) + 1,
  				NewStateData = StateData#statedata{eap_id = NewEapID},
  				#eap_aka_identity{identity = Identity} = ocs_eap_codec:eap_aka(Data),
  				% @todo handle RADIUS attribute for ANID
  				gen_fsm:send_event(AucFsm, {Identity, "WLAN"}),
  				{next_state, vector, NewStateData, ?TIMEOUT};
  			#eap_packet{code = response, type = ?LegacyNak, identifier = EapID} ->
  				{stop, {shutdown, SessionID}, NewStateData}
  		end
  	catch
  		_:_Reason ->
  
negative.code: 		password_required :: boolean(),
  		trusted :: boolean(),
  		keys :: [{pos_integer(), binary()}],
  		id_req :: any | full | permanent,
  		service_type :: undefined | integer()}).
  -type statedata() :: #statedata{}.
  
  