--- a/Tools_ClassList.st	Fri Nov 10 17:56:55 2006 +0100
+++ b/Tools_ClassList.st	Fri Nov 10 17:57:04 2006 +0100
@@ -1198,7 +1198,7 @@
      unschanged. Invoked when the organizerMode mode changes"
 
     |orgMode namespaces showNamespaces fullNameList nameList
-     filteredPackages filteredNameSpaces classesInCangeSet|
+     filteredPackages filteredNameSpaces classesInCangeSet classesInRemoteChangeSet|
 
     showNamespaces := false.
 
@@ -1234,17 +1234,24 @@
     classesInCangeSet := ChangeSet current changedClasses.
     classesInCangeSet := classesInCangeSet collect:[:each | each theNonMetaclass].
 
+    classesInRemoteChangeSet := SmallTeam isNil ifTrue:[#()] ifFalse:[ SmallTeam changedClasses ].
+    classesInRemoteChangeSet := classesInRemoteChangeSet collect:[:each | each theNonMetaclass].
+
     nameList := aClassList 
                     collect:[:cls | 
 
-                            |nm pkg emPkg hasExtensions isInChangeSet icon|
+                            |nm pkg emPkg hasExtensions isInChangeSet isInRemoteChangeSet icon|
 
                             isInChangeSet := classesInCangeSet includes:cls theNonMetaclass.
+                            isInRemoteChangeSet := classesInRemoteChangeSet includes:cls theNonMetaclass.
 
                             nm := self nameListEntryFor:cls withNameSpace:showNamespaces.
                             isInChangeSet ifTrue:[
                                 nm := self emphasizeForChangedCode:nm
                             ].
+                            isInRemoteChangeSet ifTrue:[
+                                nm := (self colorizeForChangedCodeInSmallTeam:'!! '),nm
+                            ].
 
                             pkg := cls package ? '-'.
                             hasExtensions := cls hasExtensions.
@@ -1311,7 +1318,7 @@
 
     ^ nameList
 
-    "Modified: / 29-08-2006 / 10:27:30 / cg"
+    "Modified: / 10-11-2006 / 17:40:48 / cg"
 !
 
 reconstructNameList
@@ -1624,5 +1631,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.23 2006-10-23 08:39:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.24 2006-11-10 16:57:04 cg Exp $'
 ! !