--- a/ChangeSet.st	Fri Nov 09 17:20:24 2001 +0100
+++ b/ChangeSet.st	Fri Nov 09 22:48:08 2001 +0100
@@ -599,6 +599,29 @@
     "Created: / 4.2.2000 / 18:30:59 / cg"
 !
 
+changedClasses
+    "return a collection of all classes for which changes are in this changeSet"
+
+    |classes|
+
+    classes := IdentitySet new.
+    self do:[:chg |
+        |cls|
+
+        cls := chg changeClass.
+        cls notNil ifTrue:[
+            cls isNameSpace ifFalse:[
+                classes add:cls
+            ]
+        ]
+    ].
+    ^ classes.
+
+    "
+     ChangeSet current changedClasses  
+    "
+!
+
 component:component definition:anObject change:changeSymbol
     "Include indication that a class/namespace was added or removed
      from a CodeComponent." 
@@ -1123,5 +1146,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.69 2001-11-08 20:26:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.70 2001-11-09 21:48:08 cg Exp $'
 ! !