accessing
fromDictionary: aDictionary
	| tempText |
	tempText := (WikiText new content: (aDictionary at: 'Text')) convertMarkdownBold; convertMarkdownLinks. 
	category := aDictionary at: 'Category'.
	name := aDictionary at: 'Name'.
	text := tempText content.
	(aDictionary includesKey: 'Progress Move') ifTrue: [ self progress: true ]