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