--- a/MCStXPackageInfo.st	Thu Jun 05 10:24:10 2014 +0200
+++ b/MCStXPackageInfo.st	Fri Oct 03 03:23:23 2014 +0200
@@ -63,15 +63,14 @@
 !
 
 systemCategories
+    | cats |
 
-    | cats |
-    cats := Set new.
-    self classes do:[:cls|cats add: cls category].
+    cats := self classes collect:[:cls | cls category] as: Set.
     cats remove: #'* Projects & Packages *'.
     ^cats
 
     "Created: / 23-08-2011 / 13:45:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 29-05-2013 / 12:32:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-10-2014 / 02:23:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MCStXPackageInfo methodsFor:'testing'!
@@ -85,11 +84,11 @@
 !MCStXPackageInfo class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXPackageInfo.st,v 1.7 2013-05-29 11:47:24 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXPackageInfo.st,v 1.8 2014-10-03 01:23:23 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXPackageInfo.st,v 1.7 2013-05-29 11:47:24 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXPackageInfo.st,v 1.8 2014-10-03 01:23:23 vrany Exp $'
 !
 
 version_MC