anchor.diff:  				{next_state, vector, NextStateData, ?TIMEOUT};
   			#eap_packet{code = response, type = ?Identity,
   					identifier = StartEapID,
  -					data = <<?TEMP_TAG:6, _/bits>> = Identity}
  -					when Trusted == true ->
  +					data = <<Tag:6, _/bits>> = Identity}
  +					when ((Tag =:= ?TEMP_AKA) or (Tag =:= ?TEMP_AKAp)),
  +					Trusted == true ->
   				NextStateData = NewStateData#statedata{eap_id = StartEapID,
   						identity = Identity},
   				[Pseudonym | _] = binary:split(Identity, <<$@>>, []),
  
positive.code: 								RequestAuthenticator, RequestAttributes, NextStateData),
  						{next_state, identity, NextStateData, ?TIMEOUT};
  					#eap_packet{code = response, type = ?Identity,
  							identifier = StartEapID, data = Identity} ->
  						NextEapID = (StartEapID rem 255) + 1,
  						EapData = ocs_eap_codec:eap_aka(#eap_aka_identity{fullauth_id_req = true}),
  						NextStateData = NewStateData#statedata{request = undefined,
  
negative.code: 		case ocs_eap_codec:eap_packet(EapMessage) of
  			#eap_packet{code = response, type = ?Identity,
  					identifier = StartEapID,
  					data = <<Tag, PermanentID/binary>> = Identity}
  					when ((Tag =:= ?PERM_AKA) or (Tag =:= ?PERM_AKAp)),
  					Trusted == true ->
  				NextStateData = NewStateData#statedata{eap_id = StartEapID,
  						identity = Identity},
  				[IMSI | _] = binary:split(PermanentID, <<$@>>, []),
  