classes |
	classes := Set new.
	Smalltalk allBehaviorsDo: [:class | ((class isMeta and: [class selectors includes: #save])
			and: ['Jun*' match: class name])
			ifTrue: [classes add: class name]].
	Transcript cr; show: '<ul>'.
	classes asSortedCollection do: [:classname | Transcript cr; show: '<li>' , classname , '</li>'].
	Transcript cr; show: '</ul>'.
	^classes