MethodChange.st
changeset 1509 e3f924fdfb6c
parent 1487 56ddb1c71218
child 1512 2a7a41afb1e2
--- a/MethodChange.st	Mon Jul 24 17:58:51 2006 +0200
+++ b/MethodChange.st	Tue Jul 25 11:24:48 2006 +0200
@@ -224,11 +224,11 @@
     "return true, if the given change represents the same change as the receiver."
 
     (self isForSameAs:changeB) ifFalse:[^ false].   
-    ^ self sameSourceAs:changeB
-
+    (self sameSourceAs:changeB) ifTrue:[^ true].
 
+    ^ false.
 
-
+    "Modified: / 25-07-2006 / 11:23:27 / cg"
 ! !
 
 !MethodChange methodsFor:'converting'!
@@ -300,5 +300,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.40 2006-04-13 15:23:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.41 2006-07-25 09:24:48 cg Exp $'
 ! !