accessing
groups
	^ groups ifNil: [ groups := OrderedCollection new]