anchor.diff:  					#eap_aka_identity{identity = <<?PERM_AKA,
   							PermanentID/binary>> = Identity} when IdReq == full ->
   						[IMSI | _] = binary:split(PermanentID, <<$@>>, []),
  -						gen_fsm:send_event(AucFsm, {vector, {self(), IMSI, RAT}}),
  +						gen_fsm:send_event(AucFsm, {vector, {self(), IMSI, undefined, RAT}}),
   						NewStateData = StateData#statedata{identity = Identity},
   						{next_state, vector, NewStateData, ?TIMEOUT};
   					#eap_aka_identity{identity = <<?TEMP_AKA:6, _/bits>> = Identity}
  
positive.code: 		session_id:: diameter:'OctetString'()
  				| {NAS :: inet:ip_address() | string(),
  				Port :: string(), Peer :: string()},
  		request :: #diameter_eap_app_DER{} | #'3gpp_swm_DER'{}
  				| #radius{} | undefined,
  		response :: undefined | {EapMessage :: binary(),
  				radius_attributes:attributes()},
  		secret :: undefined | binary(),
  
negative.code: 				[Pseudonym | _] = binary:split(Identity, <<$@>>, []),
  				CompressedIMSI = ocs_eap_aka:decrypt_imsi(Pseudonym, Keys),
  				IMSI = ocs_eap_aka:compressed_imsi(CompressedIMSI),
  				gen_fsm:send_event(AucFsm, {vector, {self(), IMSI, undefined, RAT}}),
  				{next_state, vector, NextStateData, ?TIMEOUT};
  			#eap_packet{code = response, type = ?Identity,
  					identifier = StartEapID,
  