--- a/ChangeSet.st	Tue Dec 19 11:51:24 2000 +0100
+++ b/ChangeSet.st	Thu Dec 21 13:59:53 2000 +0100
@@ -729,6 +729,12 @@
     ^ self
 ! !
 
+!ChangeSet methodsFor:'queries'!
+
+includesChangeForClass:aClass
+    ^ self contains:[:aChange | aChange className = aClass name ]
+! !
+
 !ChangeSet methodsFor:'utilities'!
 
 apply
@@ -895,5 +901,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.56 2000-11-09 11:52:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.57 2000-12-21 12:59:53 cg Exp $'
 ! !