--- a/Method.st	Wed Sep 03 10:46:15 2008 +0200
+++ b/Method.st	Wed Sep 03 10:58:19 2008 +0200
@@ -293,6 +293,12 @@
 
 !Method methodsFor:'Compatibility-VW'!
 
+classIsMeta
+    "return true, if this method is a class method"
+
+    ^ self mclass isMeta 
+!
+
 sendsSelector:aSelectorSymbol
     "return true, if this method contains a message-send
      with aSelectorSymbol as selector."
@@ -2832,7 +2838,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.315 2008-06-28 12:17:18 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.316 2008-09-03 08:58:19 cg Exp $'
 ! !
 
 Method initialize!