--- a/Method.st	Tue Oct 06 12:38:09 2009 +0200
+++ b/Method.st	Tue Oct 06 16:59:36 2009 +0200
@@ -1996,11 +1996,8 @@
     "Return true, if this is a documentation only (only a comment) method
      (implies being a metaclass method)"
 
-    |tree|
-
-    self mclass isMeta ifFalse:[^ false].
-    tree := self parse:#'parseMethodSilent:' return:#tree or:nil.
-    ^ tree isNil 
+"/    self mclass isMeta ifFalse:[^ false].
+    ^ self parse:#'parseMethodSilent:' return:#isEmptyMethod or:false.
 !
 
 isExternalLibraryFunctionCall
@@ -2893,7 +2890,11 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.327 2009-09-23 16:53:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.328 2009-10-06 14:59:36 fm Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.328 2009-10-06 14:59:36 fm Exp $'
 ! !
 
 Method initialize!