--- a/Method.st	Tue Apr 19 12:04:48 2005 +0200
+++ b/Method.st	Tue Apr 19 12:22:19 2005 +0200
@@ -398,7 +398,7 @@
     parser parseMethodSpec.
     comments := parser comments.
     comments size ~~ 0 ifTrue:[
-        comment := comments first string.
+        comment := comments first asString.
         (comment withoutSpaces endsWith:'}') ifTrue:[
             "if first comment is a pragma, take next comment"
             comment := comments at:2 ifAbsent:nil.
@@ -2979,7 +2979,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.282 2005-01-27 10:31:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.283 2005-04-19 10:22:19 cg Exp $'
 ! !
 
 Method initialize!