Hi! I am thinking about extending FAMIXClass with the following: withAllSuperclasses ^ self superclassHierarchyGroup isPharoTest ^ self superclassHierarchyGroup anySatisfy: [ :c | c name = 'TestCase’ ] Does this makes sense? Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.