accessing
fromDictionary: aDictionary
	brief := aDictionary at: 'Description'.
	details := aDictionary at: 'Details'.
	questStarter := aDictionary at: 'Quest Starter'.
	subtable := aDictionary at: 'Table' ifAbsent: [ subtable := nil ].
	"Because of JSON original data this only puts the end of the chance interval.
	This needs to be refined at 'container' object SfTruth."
	chance := aDictionary at: 'Chance'