--- 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!