anchor.diff:  				#eap_packet{code = response, type = ?Identity,
   						identifier = NewEapID} ->
   					NextEapID = (NewEapID rem 255) + 1,
  +					EapData = eap_aka(#eap_aka_identity{any_id_req = true}),
   					EapPacket = #eap_packet{code = request,
   							type = ?AKA, identifier = NextEapID, data = EapData},
   					send_radius_response(EapPacket, ?AccessChallenge, [], RadiusID,
  
positive.code: 					{stop, {shutdown, SessionID}, StateData}
  			end;
  		{error, not_found} ->
  			EapPacket = #eap_packet{code = request,
  					type = ?AKA, identifier = EapID, data = EapData},
  			send_radius_response(EapPacket, ?AccessChallenge, [], RadiusID,
  
negative.code: 	Children = supervisor:which_children(Sup),
  	{_, AucFsm, _, _} = lists:keyfind(ocs_eap_aka_auc_fsm, 1, Children),
  	NewStateData = StateData#statedata{start = undefined, auc_fsm = AucFsm},
  	case radius_attributes:find(?EAPMessage, RequestAttributes) of
  		{ok, <<>>} ->
  			EapData = eap_aka(#eap_aka_identity{any_id_req = true}),
  			EapPacket = #eap_packet{code = request,
  					type = ?AKA, identifier = EapID, data = EapData},
  			send_radius_response(EapPacket, ?AccessChallenge, [], RadiusID,
  