--- a/ChangesBrowser.st	Tue Oct 20 10:39:18 2009 +0200
+++ b/ChangesBrowser.st	Tue Oct 20 10:41:33 2009 +0200
@@ -4196,7 +4196,7 @@
             ((cls := self classOfChange:changeNr ifAbsent:[:className| nil]) notNil
             and:[(sel := self selectorOfMethodChange:changeNr) notNil])
             ifTrue:[
-                (cls implements:sel) ifTrue:[
+                (cls includesSelector:sel) ifTrue:[
                     self autoSelect:changeNr.
                     ^ self
                 ].
@@ -6083,9 +6083,9 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.394 2009-10-14 12:36:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.395 2009-10-20 08:41:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.394 2009-10-14 12:36:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.395 2009-10-20 08:41:33 cg Exp $'
 ! !