How to use ExtendedEntityClass and Implicit Entity Class in 13.2.1

Today, I revisited the Entity Framework to compute certain properties.
In Mathematica version 12 we could define an ExtendedEntityClass and use an implicitly defined entity class to filter certain properties.
In version 13, this will give errors and no result.

Example

Find the first 5 countries in Europe with the largest population density.
​
The approach in version 12 was:
Define an ExtendedEntityClass by adding a new computed property named “PopDensity” (to distinguish it from the built-in “PopulationDensity” EntityProperty) with the EntityFunction.
Define an implicity defined EntityClass based on the ExtendedEntityClass where we will take the largest 5 PopDensity.
Get the PopDensity as an EntityAssociation.
​
A picture of the expressions and its result when run on Mathematica version 12, is shown below:

Result in version 12

Issue in version 13

In version 13, the operation gives errors and no result:
In[]:=
data=ExtendedEntityClass
Europe
COUNTRIES
,"PopDensity"->EntityFunctiona,a
population
a
total area
;​​EntityClass[data,{"PopDensity"->TakeLargest[5]}]["PopDensity","EntityAssociation"]
TakeLargest
:Cannot take 5 element(s) from a list of length 0.
Keys
:The argument TakeLargest[5]
Albania
MissingUnknownEntity,
Europe
,Albania,
Andorra
MissingUnknownEntity,
Europe
,Andorra,
Austria
MissingUnknownEntity,
Europe
,Austria,
Belarus
MissingUnknownEntity,
Europe
,Belarus,
Belgium
MissingUnknownEntity,
Europe
,Belgium,
Bosnia and Herzegovina
MissingUnknownEntity,
Europe
,BosniaHerzegovina,
Bulgaria
MissingUnknownEntity,
Europe
,Bulgaria,
Croatia
MissingUnknownEntity,
Europe
,Croatia,
Cyprus
MissingUnknownEntity,
Europe
,Cyprus,
Czech Republic
MissingUnknownEntity,
Europe
,CzechRepublic,41 is not a valid Association or a list of rules.
Keys
:The argument TakeLargest[5]
Albania
MissingUnknownEntity,
Europe
,Albania,
Andorra
MissingUnknownEntity,
Europe
,Andorra,
Austria
MissingUnknownEntity,
Europe
,Austria,
Belarus
MissingUnknownEntity,
Europe
,Belarus,
Belgium
MissingUnknownEntity,
Europe
,Belgium,
Bosnia and Herzegovina
MissingUnknownEntity,
Europe
,BosniaHerzegovina,
Bulgaria
MissingUnknownEntity,
Europe
,Bulgaria,
Croatia
MissingUnknownEntity,
Europe
,Croatia,
Cyprus
MissingUnknownEntity,
Europe
,Cyprus,
Czech Republic
MissingUnknownEntity,
Europe
,CzechRepublic,41 is not a valid Association or a list of rules.
Out[]=
EntityClassExtendedEntityClass
Europe
,PopDensityEntityFunctiona,
a
population

a
total area

,{PopDensityTakeLargest[5]}[PopDensity,EntityAssociation]

Workaround

The following is a workaround in version 13 :
In[]:=
ExtendedEntityClass
Europe
COUNTRIES
,"PopDensity"->EntityFunctiona,a
population
a
total area
["PopDensity","EntityAssociation"]//TakeLargest[5]//ReverseSort
Out[]=

Monaco

1.962×
4
10
people/
2
km
,
Gibraltar

5183.
people/
2
km
,
Vatican City

1839.
people/
2
km
,
Malta

1397.
people/
2
km
,
Guernsey

841.1
people/
2
km

Is this an issue or am I missing some changes in version 13?
Mathematica Version
Out[]=
13.2.1 for Microsoft Windows (64-bit) (January 27, 2023)