accessing
populateAbilities: abilitiesDictionary 

	| enabled disabled |
	enabled := abilitiesDictionary select: [ :abi | abi keys includes: 'Enabled' ].
	disabled := abilitiesDictionary reject: [ :abi | abi keys includes: 'Enabled' ].
	^ self abilities 
		at: 'enabled' put: (enabled collect: [:abi | (abi at: 'Text') ]);
		at: 'disabled' put: (disabled collect: [:abi | (abi at: 'Text') ]);
		yourself.