--- 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!