--- a/Method.st	Fri Dec 14 12:59:34 2012 +0100
+++ b/Method.st	Mon Dec 17 11:49:26 2012 +0100
@@ -450,6 +450,10 @@
     "Modified: / 01-06-2012 / 23:03:57 / cg"
 !
 
+getMclass
+    ^ mclass 
+!
+
 getPackage
     "return the package-ID of the method"
 
@@ -3742,11 +3746,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.404 2012-12-13 13:37:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.405 2012-12-17 10:49:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.404 2012-12-13 13:37:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.405 2012-12-17 10:49:26 cg Exp $'
 !
 
 version_SVN