# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1424823288 -3600
# Node ID 9d3047664305fd9d450e386b28e6eced4dad321c
# Parent  c7dccf72f59164a980c03a11f2e3279c1cfd1c68
class: ProjectDefinition
changed: #monticelloName

diff -r c7dccf72f591 -r 9d3047664305 extensions.st
--- a/extensions.st	Wed Feb 25 01:12:38 2015 +0100
+++ b/extensions.st	Wed Feb 25 01:14:48 2015 +0100
@@ -167,12 +167,14 @@
     cats isEmpty ifTrue:[
         ^ 'Misc_Changes'
     ].
-    longest := cats inject:cats anElement
+    longest := cats 
+            inject:cats anElement
             into:[:cat :each | 
                 each size > cat size ifTrue:[
                     each
                 ] ifFalse:[ cat ]
             ].
+
     prefix := ''.
     [
         (index := longest indexOf:$- startingAt:prefix size + 2) ~~ 0
@@ -185,8 +187,10 @@
     nm notNil ifTrue:[
         ^ nm
     ].
-    self 
-        error:'Cannot infer Monticello package name from class categories. Please define #mcName explicitly'
+    ^ self package asString copyReplaceAny:':/' with:$_.
+
+"/    self 
+"/        error:'Cannot infer Monticello package name from class categories. Please define #mcName explicitly'
 
     "Created: / 29-05-2013 / 01:36:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 23-06-2013 / 21:12:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -470,6 +474,6 @@
 !stx_goodies_monticello class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.26 2014-12-21 13:07:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.27 2015-02-25 00:14:48 cg Exp $'
 ! !