--- a/Tools_ClassCategoryList.st	Thu Oct 29 18:29:14 2009 +0100
+++ b/Tools_ClassCategoryList.st	Thu Oct 29 18:55:01 2009 +0100
@@ -609,7 +609,8 @@
 listOfCategories
     |categories hideUnloadedClasses generator nameSpaceFilter packageFilter allName
      categoriesWithExtensions categoriesWithChangedCode categoriesWithRemoteChangedCode
-     classesInChangeSet classesInRemoteChangeSet numClassesInChangeSet numClasses numUnloaded numUndocumented|
+     classesInChangeSet classesInRemoteChangeSet 
+     numClassesInChangeSet numClasses numUnloaded numUndocumented pseudoEntryColor|
 
     allName := self class nameListEntryForALL.
 
@@ -714,25 +715,27 @@
             ]
         ].
 
+    pseudoEntryColor := self class pseudoEntryForegroundColor.
+
     numUnloaded > 0 ifTrue:[
         "/ dont include count - makeGenerator compares against the un-expanded nameListEntry (sigh - need two lists)
-        categories addFirst:((self class nameListEntryForUnloaded "bindWith:numClassesInChangeSet") allItalic).
+        categories addFirst:((self class nameListEntryForUnloaded "bindWith:numClassesInChangeSet") allItalic colorizeAllWith:pseudoEntryColor).
     ].
     numUndocumented > 0 ifTrue:[
         "/ dont include count - makeGenerator compares against the un-expanded nameListEntry (sigh - need two lists)
-        categories addFirst:((self class nameListEntryForUndocumented "bindWith:numClassesInChangeSet") allItalic).
+        categories addFirst:((self class nameListEntryForUndocumented "bindWith:numClassesInChangeSet") allItalic colorizeAllWith:pseudoEntryColor).
     ].
     numClassesInChangeSet := ChangeSet current changedClasses size.
     numClassesInChangeSet > 0 ifTrue:[
         "/ dont include count - makeGenerator compares against the un-expanded nameListEntry (sigh - need two lists)
-        categories addFirst:((self class nameListEntryForChanged "bindWith:numClassesInChangeSet") allItalic).
+        categories addFirst:((self class nameListEntryForChanged "bindWith:numClassesInChangeSet") allItalic colorizeAllWith:pseudoEntryColor).
     ].
 
     categories size > 0 ifTrue:[
         categories size == 1 ifTrue:[
             self classCategoryLabelHolder value:(categories first)
         ].
-        categories addFirst:((self class nameListEntryForALL "WithCount bindWith:numClasses") allItalic).
+        categories addFirst:((self class nameListEntryForALL "WithCount bindWith:numClasses") allItalic colorizeAllWith:pseudoEntryColor).
     ].
 
     ^ categories
@@ -885,9 +888,9 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.27 2009-10-20 08:39:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.28 2009-10-29 17:55:01 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.27 2009-10-20 08:39:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.28 2009-10-29 17:55:01 cg Exp $'
 ! !