--- a/Method.st	Wed Oct 24 15:52:01 2007 +0200
+++ b/Method.st	Wed Oct 24 17:14:39 2007 +0200
@@ -419,7 +419,7 @@
     mclass == aClass ifTrue:[ ^ self ].
 
     (mclass notNil and:[aClass notNil]) ifTrue:[
-        'Method [warning]: mclass already set' errorPrintCR.
+        "/ 'Method [warning]: mclass already set' errorPrintCR.
     ].
     mclass := aClass.
 
@@ -2818,7 +2818,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.309 2007-09-25 18:22:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.310 2007-10-24 15:14:39 cg Exp $'
 ! !
 
 Method initialize!