# HG changeset patch # User Claus Gittinger # Date 825954639 -3600 # Node ID b45a722a10c3720967558b393128ccdbeb5b09bc # Parent baa5827a7a4019c892eddd21fdb922fab5fe7de6 oops - forgot excla after comment-chunk diff -r baa5827a7a40 -r b45a722a10c3 Class.st --- a/Class.st Sun Mar 03 00:53:50 1996 +0100 +++ b/Class.st Mon Mar 04 16:50:39 1996 +0100 @@ -1344,7 +1344,8 @@ "append a class-comment-record to aStream" aClass fileOutCommentOn:aStream. - aStream nextPutChunkSeparator. + + "Modified: 4.3.1996 / 16:49:08 / cg" ! addChangeRecordForClassFileOut:aClass @@ -2338,9 +2339,10 @@ s := comment storeString ]. aStream nextPutAllAsChunk:s. + aStream nextPutChunkSeparator. aStream cr - "Modified: 21.2.1996 / 15:01:56 / cg" + "Modified: 4.3.1996 / 16:49:23 / cg" ! fileOutDefinitionOn:aStream @@ -3892,6 +3894,6 @@ !Class class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.143 1996-02-21 14:08:01 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.144 1996-03-04 15:50:39 cg Exp $' ! ! Class initialize!