accessing
abilities
	^ abilities ifNil: [ abilities := Dictionary new
		at: 'enabled' put: OrderedCollection new;
		at: 'disabled' put: OrderedCollection new;
		yourself  ]