anchor.diff:  			PeerId1, Secret, ReqAuth, EapId, RadId),
   	_Mac = receive_radius_id1(Socket, Address,
   			Port, Secret, ReqAuth, RadId, Service, PeerId1),
  -	ok = ocs:delete_service(PeerId).
  +	ok = ocs:delete_service(PeerId1).
   
   eap_identity_diameter_trusted() ->
      [{userdata, [{doc, "Send an EAP-Identity/Response using DIAMETER"}]}].
  
positive.code:                         _:64/binary, _/binary>> = prf(<<IKprime/binary,
  	CKprime/binary>>, <<"EAP-AKA'", Identity/binary>>, 7),
          EapMessage1 = ocs_eap_codec:eap_packet(EapPacket),
  	MAC = crypto:hmac(sha256, Kaut, EapMessage1 , 16).
  
  %% @hidden
  send_radius_identity(Socket, Address, Port, NasId,
  
negative.code: 	SIdbin = list_to_binary(SId),
  	#diameter_eap_app_DEA{'Session-Id' = SIdbin, 'Auth-Application-Id' = ?EAP_APPLICATION_ID,
  			'Auth-Request-Type' =  ?'DIAMETER_BASE_AUTH-REQUEST-TYPE_AUTHORIZE_AUTHENTICATE',
  			'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_MULTI_ROUND_AUTH',
  			'EAP-Payload' = [Payload]} = DEA,
  	NextEapId = EapId + 1,
  	#eap_packet{code = request, type = ?AKAprime, identifier = NextEapId,
  			data = _EapData} = ocs_eap_codec:eap_packet(Payload).
  
  eap_identity_radius_trusted() ->
     [{userdata, [{doc, "Send an trusted EAP-Identity/Response using RADIUS"}]}].
  