--- a/extensions.st	Fri May 31 12:39:30 2013 +0200
+++ b/extensions.st	Mon Jun 03 12:32:31 2013 +0200
@@ -164,21 +164,24 @@
     "Return name of the package for Monticello. 
 
      Historically, Monticello package membership is based on
-     nameing convetions. All classes whose category name starts with
-     package name are consireder as belonging to the package, others
-     does not. If classes' category soes not match this naming convetion,
-     package will load by fail to save back properly.
+     naming conventions. All classes whose category name starts with
+     package name are considerer as belonging to the package, others
+     do not. If classes' category does not match this naming convention,
+     the package will fail to load back properly.
 
      Here, infer such prefix. Individual packages may override this method
      and return a string to enforce a particular name."
     
-    | cats  longest  prefix  index  nm |
+    | cats longest prefix index nm |
 
     cats := (self classes collect:[:each | each category ]) asSet.
     cats remove:#'* Projects & Packages *'.
     cats size == 1 ifTrue:[
         ^ cats anElement
     ].
+    cats isEmpty ifTrue:[
+        ^ 'Misc_Changes'
+    ].
     longest := cats inject:cats anElement
             into:[:cat :each | 
                 each size > cat size ifTrue:[
@@ -468,6 +471,5 @@
 !stx_goodies_monticello class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.21 2013-05-29 11:45:33 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.22 2013-06-03 10:32:31 cg Exp $'
 ! !
-