--- a/Method.st Tue Jan 24 12:20:46 2006 +0100
+++ b/Method.st Tue Jan 24 19:06:05 2006 +0100
@@ -396,6 +396,7 @@
parser := Parser for:src in:nil.
parser ignoreErrors:true; ignoreWarnings:true; saveComments:true.
parser parseMethodSpec.
+
comments := parser comments.
comments size ~~ 0 ifTrue:[
comment := comments first asString.
@@ -2980,7 +2981,7 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.286 2005-07-08 17:15:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.287 2006-01-24 18:06:05 cg Exp $'
! !
Method initialize!