You might want to inspect this to see if this gets you something interesting.

(Object allSubclasses collect: [ :aClass |
� � � � aClass -> aClass allInstances size])
� � � � sort: [ :a :b | a value > b value ]

It takes some time to run, especially in a larger image.

Stephan