anchor.diff:  			EapData = ocs_eap_codec:eap_aka(#eap_aka_identity{fullauth_id_req = true}),
   			NextStateData = NewStateData#statedata{request = undefined, id_req = full},
   			EapPacket = #eap_packet{code = request,
  -					type = ?AKA, identifier = EapID, data = EapData},
  +					type = ?AKAprime, identifier = EapID, data = EapData},
   			send_radius_response(EapPacket, ?AccessChallenge, [], RadiusID,
   					RequestAuthenticator, RequestAttributes, NewStateData),
   			{next_state, identity, NextStateData, ?TIMEOUT};
  
positive.code: 				NextStateData = NewStateData#statedata{request = undefined,
  						eap_id = NextEapID, identity = Identity, id_req = full},
  				EapPacket = #eap_packet{code = request,
  						type = ?AKA, identifier = NextEapID, data = EapData},
  				send_diameter_response(SessionId, AuthReqType,
  						?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH', OHost, ORealm,
  						EapPacket, PortServer, Request, NextStateData),
  
negative.code: 	NewStateData = StateData#statedata{request = undefined,
  			eap_id = NextEapID, res = Rand, ck = CK, ik = IK,
  			ak = Autn, mk = MK, k_aut = Kaut, k_encr = Kencr},
  	EapPacket = #eap_packet{code = request, type = ?AKAprime,
  			identifier = NextEapID, data = EapData2},
  	send_diameter_response(SessionID, AuthReqType,
  			?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH', OHost, ORealm,
  