Last change was apparently wrong. Fix it.
--- a/Method.st Thu Aug 05 14:31:05 2004 +0200
+++ b/Method.st Thu Aug 05 19:39:56 2004 +0200
@@ -459,7 +459,9 @@
!
mclass:aClass
- mclass ~~ aClass ifTrue:[ ^ self ].
+ "set the method's class"
+
+ mclass == aClass ifTrue:[ ^ self ].
(mclass notNil and:[aClass notNil]) ifTrue:[
'Method [warning]: mclass already set' errorPrintCR.
@@ -2922,7 +2924,7 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.277 2004-08-04 16:03:48 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.278 2004-08-05 17:39:56 stefan Exp $'
! !
Method initialize!