Avoid problem with DiscretizeGraphics?

When I used this function with Mathematica 10.1 I obtain the map of France with Corsica

DiscretizeGraphics[CountryData["France", {"Polygon", "Mercator"}]]

But with Mathematica 11, I obtain only the map of Corsica.

Do you have a solution to obtain the complete map with France and Corsica?

Yes, I got the same problem with v11.0.1.

This workaround seems to work :

DiscretizeGraphics@
 Thread@CountryData["France", {"Polygon", "Mercator"}]

Seems indeed like incorrect behaviour. Threading the polygon before seems to work always (also for Netherlands where there are more than 2 polygons). Submitted as product feedback: CASE: 3850879. Also not (yet) fixed in an upcoming release.

This is funny too:

DiscretizeGraphics[
 CountryData["France", {"SchematicPolygon", "Mercator"}]]