--- a/Tools_ClassList.st	Sat Oct 27 12:35:12 2012 +0200
+++ b/Tools_ClassList.st	Sat Oct 27 12:44:49 2012 +0200
@@ -1412,7 +1412,7 @@
 
 nameListForClasses:aClassList
     |orgMode namespaces showNamespaces fullNameList nameList
-     filteredPackages filteredNameSpaces classesInCangeSet classesInRemoteChangeSet
+     filteredPackages filteredNameSpaces classesInRemoteChangeSet
      classNamesInChangeSet classNamesInRemoteChangeSet|
 
     showNamespaces := false.
@@ -1446,22 +1446,21 @@
     orgMode := organizerMode value.
     filteredPackages := packageFilter value value.
 
-    classesInCangeSet := ChangeSet current changedClasses.
-    classesInCangeSet := classesInCangeSet collect:[:each | each theNonMetaclass].
-    classNamesInChangeSet := classesInCangeSet collect:[:each | each name].
+    classNamesInChangeSet := ChangeSet current changedClasses
+                                collect:[:each | each theNonMetaclass name].
 
     classesInRemoteChangeSet := SmallTeam isNil ifTrue:[#()] ifFalse:[ SmallTeam changedClasses ].
-    classesInRemoteChangeSet := classesInRemoteChangeSet collect:[:each | each theNonMetaclass].
-    classNamesInRemoteChangeSet := classesInRemoteChangeSet collect:[:each | each name].
+    classNamesInRemoteChangeSet := classesInRemoteChangeSet collect:[:each | each theNonMetaclass name].
 
     nameList := aClassList 
                     collect:[:cls | 
 
-                            |nm pkg emPkg hasExtensions isInChangeSet isInRemoteChangeSet icon
+                            |className nm pkg emPkg hasExtensions isInChangeSet isInRemoteChangeSet icon
                              clr|
 
-                            isInChangeSet := classNamesInChangeSet includes:(cls theNonMetaclass name).
-                            isInRemoteChangeSet := classNamesInRemoteChangeSet includes:(cls theNonMetaclass name).
+                            className := cls theNonMetaclass name.
+                            isInChangeSet := classNamesInChangeSet includes:className.
+                            isInRemoteChangeSet := classNamesInRemoteChangeSet includes:className.
 
                             nm := self nameListEntryFor:cls withNameSpace:showNamespaces.
 
@@ -1544,7 +1543,7 @@
 
     ^ nameList
 
-    "Modified: / 28-04-2010 / 14:05:38 / cg"
+    "Modified: / 27-10-2012 / 12:32:20 / cg"
 !
 
 nameListIndentStringFor:aClass withNameSpace:useFullName
@@ -2012,9 +2011,9 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.63 2012-10-25 12:15:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.64 2012-10-27 10:44:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.63 2012-10-25 12:15:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.64 2012-10-27 10:44:49 cg Exp $'
 ! !