--- a/Tools_ClassCategoryList.st	Tue Oct 23 15:43:22 2012 +0200
+++ b/Tools_ClassCategoryList.st	Tue Oct 23 15:49:11 2012 +0200
@@ -761,13 +761,13 @@
             item        
         ].
 
-    numUnloaded > 0 ifTrue:[
-        rawCategoryList addFirst:self class nameListEntryForUnloaded.
-        categories addFirst:((self class nameListEntryForUnloadedWithCount bindWith:numUnloaded) allItalic colorizeAllWith:pseudoEntryColor).
+    numUndocumented > 0 ifTrue:[
+        rawCategoryList add:self class nameListEntryForUndocumented.
+        categories add:((self class nameListEntryForUndocumentedWithCount bindWith:numUndocumented) allItalic colorizeAllWith:pseudoEntryColor).
     ].
-    numUndocumented > 0 ifTrue:[
-        rawCategoryList addFirst:self class nameListEntryForUndocumented.
-        categories addFirst:((self class nameListEntryForUndocumentedWithCount bindWith:numUndocumented) allItalic colorizeAllWith:pseudoEntryColor).
+    numUnloaded > 0 ifTrue:[
+        rawCategoryList add:self class nameListEntryForUnloaded.
+        categories add:((self class nameListEntryForUnloadedWithCount bindWith:numUnloaded) allItalic colorizeAllWith:pseudoEntryColor).
     ].
     numClassesInChangeSet := ChangeSet current changedClasses size.
     numClassesInChangeSet > 0 ifTrue:[
@@ -952,9 +952,9 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.35 2012-10-23 08:44:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.36 2012-10-23 13:49:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.35 2012-10-23 08:44:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.36 2012-10-23 13:49:11 cg Exp $'
 ! !