--- a/ChangeSet.st	Thu Mar 16 15:51:01 2006 +0100
+++ b/ChangeSet.st	Thu Mar 16 15:51:21 2006 +0100
@@ -868,6 +868,7 @@
     |nameOfClass|
 
     (self changedClasses includes:aClass) ifFalse:[^ false].
+    (self changeSelectors includes:selector) ifFalse:[^ false].
 
     nameOfClass := aClass name.
 
@@ -2005,5 +2006,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.127 2006-03-16 09:12:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.128 2006-03-16 14:51:21 cg Exp $'
 ! !