--- a/Method.st	Thu Mar 16 09:41:42 2006 +0100
+++ b/Method.st	Thu Mar 16 15:50:35 2006 +0100
@@ -1717,8 +1717,7 @@
     ].
 
     currentChangeSet := ChangeSet current.
-    isInChangeSet := (currentChangeSet changedClasses includes:cls)
-                     and:[ currentChangeSet includesChangeForClass:cls selector:selector ].
+    isInChangeSet := currentChangeSet includesChangeForClass:cls selector:selector.
 
     isInChangeSet ifTrue:[
         s := s asText emphasisAllAdd:(userPreferences emphasisForChangedCode)
@@ -2974,7 +2973,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.289 2006-02-15 17:55:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.290 2006-03-16 14:50:35 cg Exp $'
 ! !
 
 Method initialize!