--- a/Method.st	Mon Sep 21 14:49:21 2009 +0200
+++ b/Method.st	Mon Sep 21 15:07:51 2009 +0200
@@ -1992,6 +1992,15 @@
     "
 !
 
+isDocumentationMethod
+    "Return true, if this is a documentation only (only a comment) method"
+
+    |tree|
+
+    tree := self parse:#'parseMethodSilent:' return:#tree or:nil.
+    ^ tree isNil 
+!
+
 isExternalLibraryFunctionCall
     "Return true, if this is an externalLibraryFunction call."
 
@@ -2058,7 +2067,7 @@
 isVersionMethod
     "Return true, if this is a CVS version method"
 
-    ^ self selector == #version and:[ self mclass isMeta ]
+    ^ (self selector == #version) and:[ self mclass isMeta ]
 
     "
      (Method class compiledMethodAt:#version) isVersionMethod
@@ -2876,7 +2885,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.323 2009-09-21 12:49:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.324 2009-09-21 13:07:51 cg Exp $'
 ! !
 
 Method initialize!