--- a/Tools_ClassList.st	Thu Jul 04 17:20:12 2013 +0200
+++ b/Tools_ClassList.st	Thu Jul 04 17:20:19 2013 +0200
@@ -1674,8 +1674,8 @@
         classesRemovedFromList := OrderedCollection new.
         newSet := newList asSet.
         oldSet := oldList asSet.
-        classesAddedToList := newSet select:[:eachNewClass | (oldSet includes:eachNewClass) not].
-        classesRemovedFromList := oldSet select:[:eachOldClass | (newSet includes:eachOldClass) not].
+        classesAddedToList := newSet reject:[:eachNewClass | (oldSet includes:eachNewClass)].
+        classesRemovedFromList := oldSet reject:[:eachOldClass | (newSet includes:eachOldClass)].
     ].
 
     (newList ~= oldList
@@ -1888,6 +1888,7 @@
     aClass isLoaded ifFalse:[
         "/ nm := nm,(' (?) ' colorizeAllWith:Color grey).
     ] ifTrue:[
+        nm := (nm , ' ').
         aClass isAbstract ifTrue:[ nm := nm allItalic ].
         nm := nm,((' (%1+%2) ' bindWith:(aClass methodDictionary size) with:(aClass class methodDictionary size)) 
                         colorizeAllWith:self class pseudoEntryForegroundColor).
@@ -2027,10 +2028,10 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.72 2013-03-30 14:15:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.72 2013-03-30 14:15:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.74 2013-07-04 15:20:19 cg Exp $'
 ! !