--- a/Method.st	Wed Aug 04 15:24:48 2004 +0200
+++ b/Method.st	Wed Aug 04 18:03:48 2004 +0200
@@ -459,6 +459,8 @@
 !
 
 mclass:aClass
+    mclass ~~ aClass ifTrue:[ ^ self ].
+
     (mclass notNil and:[aClass notNil]) ifTrue:[
         'Method [warning]: mclass already set' errorPrintCR.
     ].
@@ -2920,7 +2922,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.276 2004-06-30 15:19:49 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.277 2004-08-04 16:03:48 penk Exp $'
 ! !
 
 Method initialize!