Error when snapshot does not contain class definition

[stlutz]

When saving a package consisting of nothing but extension methods, a NotFound: Object is not in the collection. error is thrown in TonelWriter >> writeSnapshot:.

squeak-tonel/MonticelloTonel-Core.package/TonelWriter.class/instance/writeSnapshot..st

Lines 2 to 16 in 010a3d7

	writeSnapshot: aSnapshot
	snapshot := aSnapshot.
	"ensure package dirs exists.
	It has to be just one but well..."
	self writePackage: (snapshot definitions
	detect: #isOrganizationDefinition
	ifFound: [ :each | each ]
	ifNone: [ self createDefaultOrganizationFrom: (snapshot definitions detect: #isClassDefinition) ]).
	"now export classes"
	(snapshot definitions
	select: #isClassDefinition)
	do: [ :each | self writeClass: each ].
	"... and method extensions"
	self writeMethodExtensions

More specifically, the expression snapshot definitions detect: #isClassDefinition (line 10) fails to find a class definition, since the snapshot only contains method definitions for the extension methods.

It looks like a fix for this problem was already introduced for the upstream repository: pharo-vcs@d6ea569

[j4yk]

I have merged the upstream repository. Please check whether the issue is resolved.