TonelWriter>>#createDefaultOrganizationFrom: can return string

[pavel-krivanek]

TonelWriter>>#createDefaultOrganizationFrom: should return an MCOrganization but currently it can return a string (a category name). The code should be:

createDefaultOrganizationFrom: aCollection
	"answers a default organisation for the cases where there are none"

	"simplest case, I answer the clas definition"
	snapshot definitions 
		detect: #isClassDefinition
		ifFound: [ :each | ^ MCOrganizationDefinition categories: { each category } ].
	
	^ self createDefaultOrganizationFromDefinition: (snapshot definitions
		detect: #isMethodDefinition
		ifNone: [ self error: 'cannot determine package name from empty snapshot' ])