--- a/Method.st Mon Feb 16 15:06:35 1998 +0100
+++ b/Method.st Tue Feb 17 18:47:20 1998 +0100
@@ -377,8 +377,8 @@
parser parseMethodSpec.
comments := parser comments.
comments size == 0 ifTrue:[^ nil].
- (comments first withoutSpaces endsWith:'}') ifTrue:[
- ^ comments at:2 ifAbsent:nil
+ (comments first string withoutSpaces endsWith:'}') ifTrue:[
+ ^ comments at:2 ifAbsent:nil
].
^ comments first.
@@ -387,7 +387,7 @@
(Object class compiledMethodAt:#infoPrinting:) comment
"
- "Modified: 5.1.1997 / 14:35:16 / cg"
+ "Modified: / 17.2.1998 / 14:50:00 / cg"
!
decompiledSource
@@ -2609,6 +2609,6 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.152 1998-01-29 17:27:06 tz Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.153 1998-02-17 17:47:20 cg Exp $'
! !
Method initialize!