--- a/Method.st	Wed Sep 23 18:38:46 2009 +0200
+++ b/Method.st	Wed Sep 23 18:52:28 2009 +0200
@@ -2069,7 +2069,11 @@
 isVersionMethod
     "Return true, if this is a CVS version method"
 
-    ^ (self selector == #version) and:[ self mclass isMeta ]
+    |selector|
+
+    ^ self mclass isMeta
+    and:[ ((selector := self selector) == #version)
+          or:[ selector startsWith:'version_' ]]
 
     "
      (Method class compiledMethodAt:#version) isVersionMethod
@@ -2887,7 +2891,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.325 2009-09-21 13:33:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.326 2009-09-23 16:52:28 cg Exp $'
 ! !
 
 Method initialize!