--- a/extensions.st	Sun Jun 23 22:13:55 2013 +0200
+++ b/extensions.st	Mon Jun 24 01:08:00 2013 +0200
@@ -175,8 +175,7 @@
     
     | cats longest prefix index nm |
 
-    self classes do:[:each| each autoload].
-    cats := (self classes collect:[:each | each category ]) asSet.
+    cats := (self classes collect:[:each | each autoload; category ]) asSet.
     cats remove:#'* Projects & Packages *'.
     cats size == 1 ifTrue:[
         ^ cats anElement
@@ -485,6 +484,6 @@
 !stx_goodies_monticello class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.24 2013-06-23 20:13:55 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/extensions.st,v 1.25 2013-06-23 23:08:00 vrany Exp $'
 ! !