--- a/Method.st	Fri Jan 31 10:27:32 2003 +0100
+++ b/Method.st	Fri Jan 31 16:24:56 2003 +0100
@@ -395,18 +395,18 @@
     src isNil ifTrue:[^ nil].
 
     parser := Parser for:src in:nil.
-    parser ignoreErrors; ignoreWarnings; saveComments:true.
+    parser ignoreErrors:true; ignoreWarnings:true; saveComments:true.
     parser parseMethodSpec.
     comments := parser comments.
     comments size ~~ 0 ifTrue:[
-	comment := comments first string.
-	(comment withoutSpaces endsWith:'}') ifTrue:[
-	    "if first comment is a pragma, take next comment"
-	    comment := comments at:2 ifAbsent:nil.
-	    comment notNil ifTrue:[
-		comment := comment string.
-	    ].
-	].
+        comment := comments first string.
+        (comment withoutSpaces endsWith:'}') ifTrue:[
+            "if first comment is a pragma, take next comment"
+            comment := comments at:2 ifAbsent:nil.
+            comment notNil ifTrue:[
+                comment := comment string.
+            ].
+        ].
     ].
     ^ comment.
 
@@ -2883,7 +2883,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.246 2003-01-27 13:57:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.247 2003-01-31 15:24:56 penk Exp $'
 ! !
 
 Method initialize!