--- a/MethodChange.st	Mon Jul 12 14:03:59 1999 +0200
+++ b/MethodChange.st	Mon Jul 12 14:06:43 1999 +0200
@@ -112,12 +112,7 @@
 sameAs:changeB
     "return true, if the given change represents the same change as the receiver."
 
-    "/ I am a methodChange - B must be as well.
-    changeB isMethodChange ifFalse:[^ false].   
-
-    className ~= changeB className ifTrue:[^ false].
-    selector ~= changeB selector ifTrue:[^ false].
-
+    (self isForSameAs:changeB) ifFalse:[^ false].   
     ^ self sameSourceAs:changeB
 
 
@@ -151,5 +146,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.18 1999-07-06 10:36:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.19 1999-07-12 12:06:16 cg Exp $'
 ! !