| junClasses classes | junClasses := JunSystem classes. classes := Set new. junClasses do: [:class | | metaclass | metaclass := class class. (((metaclass organization categories includes: #examples) and: [metaclass selectors includes: #save]) and: ['Jun*' match: metaclass name]) ifTrue: [classes add: metaclass name]]. Transcript cr; show: '