anchor.diff:  				[IMSI | _] = binary:split(PermanentID, <<$@>>, []),
   				% @todo handle RADIUS attribute for ANID
   				gen_fsm:send_event(AucFsm, {self(), IMSI, "WLAN"}),
  -				NewStateData = StateData#statedata{identity = Identity},
  -				{next_state, vector, StateData, ?TIMEOUT};
  +				NextStateData = NewStateData#statedata{identity = Identity},
  +				{next_state, vector, NextStateData, ?TIMEOUT};
   			#eap_aka_identity{identity = <<?TEMP_TAG:6, _/bits>> = Identity}
   					when IdReq == full ->
   				Pseudonym = binary:split(Identity, <<$@>>, []),
  
positive.code: 					server_id = list_to_binary(Hostname), auth_app_id = ApplicationId,
  					auth_req_type = AuthReqType, origin_host = OHost,
  					origin_realm = ORealm, diameter_port_server = PortServer,
  					start = Request, password_required = PasswordReq,
  					trusted = Trusted, keys = Keys, service_type = ServiceType},
  			process_flag(trap_exit, true),
  			{ok, eap_start, StateData, 0}
  
negative.code: %% @private
  eap_start(timeout, #statedata{eap_id = EapID,
  		session_id = SessionId, auth_req_type = AuthReqType,
  		request = #diameter_eap_app_DER{'EAP-Payload' = []} = Request,
  		origin_host = OHost, origin_realm = ORealm,
  		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{request = undefined,
  			auc_fsm = AucFsm, id_req = full},
  	EapPacket = #eap_packet{code = request,
  			type = ?AKA, identifier = EapID, data = EapData},
  