Metaclass allInstances size
-> 1280

##</code><code>##

Metaclass allInstances select: [:m | m soleInstance includesSelector: #new]
->
#(Behavior class Metaclass class)