fix sent by Eliot

Author: estebanlm

MonticelloTonel-Core.package/TonelWriter.class/instance/createDefaultOrganizationFrom..st

@@ -1,3 +1,12 @@
 private
-createDefaultOrganizationFrom: aMCClassDefinition 
-	^ MCOrganizationDefinition categories: { aMCClassDefinition category }
+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 | ^ each category  ].
+	
+	^ self createDefaultOrganizationFromDefinition: (snapshot definitions
+		detect: #isMethodDefinition
+		ifNone: [ self error: 'cannot determine package name from empty snapshot' ])

MonticelloTonel-Core.package/TonelWriter.class/instance/createDefaultOrganizationFromDefinition..st

@@ -0,0 +1,4 @@
+private
+createDefaultOrganizationFromDefinition: aMethodDefinition
+
+	^ MCOrganizationDefinition categories: (self packageNameForMethodDefinition: aMethodDefinition)

MonticelloTonel-Core.package/TonelWriter.class/instance/packageNameForMethodDefinition..st

@@ -0,0 +1,10 @@
+private
+packageNameForMethodDefinition: aMethodDefinition
+	| category |
+	
+	self assert: aMethodDefinition category first = $*.
+	category := aMethodDefinition category allButFirst.
+	^(MCWorkingCopy allManagers
+		detect: ((category allSatisfy: #isLowercase)
+			ifTrue: [[: wc| category beginsWith: wc packageName asLowercase]]
+			ifFalse: [[: wc| category beginsWith: wc packageName]])) packageName

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

@@ -6,8 +6,7 @@ writeSnapshot: aSnapshot
 	 It has to be just one but well..."
 	self writePackage: (snapshot definitions 
 		detect: #isOrganizationDefinition
-		ifFound: [ :each | each ]
-		ifNone: [ self createDefaultOrganizationFrom: (snapshot definitions detect: #isClassDefinition) ]).
+		ifNone: [ self createDefaultOrganizationFrom: snapshot definitions ]).
 	"now export classes"
 	(snapshot definitions 
 		select: #isClassDefinition)