--- a/Tools_ClassCategoryList.st	Tue Mar 19 20:23:55 2013 +0100
+++ b/Tools_ClassCategoryList.st	Wed Mar 20 11:37:35 2013 +0100
@@ -634,7 +634,10 @@
     |categories categoriesBag hideUnloadedClasses generator nameSpaceFilter packageFilter allName
      categoriesWithExtensions categoriesWithChangedCode categoriesWithRemoteChangedCode
      classesInChangeSet classesInRemoteChangeSet classesWithExtensions
-     numClassesInChangeSet numClasses numUnloaded numUndocumented numExtendedClasses pseudoEntryColor|
+     numClassesInChangeSet numClasses numUnloaded numUndocumented numExtendedClasses 
+     pseudoEntryColor showCounts|
+
+    showCounts := true.
 
     allName := self class nameListEntryForALL.
 
@@ -767,8 +770,10 @@
                     ]
                 ]
             ].
-            item := item , ((' (%1)' bindWith:(categoriesBag occurrencesOf:cat)) 
-                                colorizeAllWith:pseudoEntryColor).
+            showCounts ifTrue:[
+                item := item , ((' (%1)' bindWith:(categoriesBag occurrencesOf:cat)) 
+                                    colorizeAllWith:pseudoEntryColor).
+            ].
             isInChangeSet ifTrue:[
                 item := item , self class markForBeingInChangeList
             ].
@@ -971,10 +976,10 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.41 2013-03-13 22:36:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.42 2013-03-20 10:37:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.41 2013-03-13 22:36:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.42 2013-03-20 10:37:35 cg Exp $'
 ! !