--- a/Method.st Sun Jan 05 03:11:45 1997 +0100
+++ b/Method.st Sun Jan 05 14:44:10 1997 +0100
@@ -305,7 +305,7 @@
parser parseMethodSpec.
comments := parser comments.
comments size == 0 ifTrue:[^ nil].
- (comments first endsWith:'}') ifTrue:[
+ (comments first withoutSpaces endsWith:'}') ifTrue:[
^ comments at:2 ifAbsent:nil
].
^ comments first.
@@ -315,7 +315,7 @@
(Object class compiledMethodAt:#infoPrinting:) comment
"
- "Modified: 22.4.1996 / 19:53:58 / cg"
+ "Modified: 5.1.1997 / 14:35:16 / cg"
!
decompiledSource
@@ -2701,6 +2701,6 @@
!Method class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.116 1997-01-05 00:10:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.117 1997-01-05 13:44:10 cg Exp $'
! !
Method initialize!