--- a/AbstractSourceCodeManager.st	Sun Dec 10 17:51:10 1995 +0100
+++ b/AbstractSourceCodeManager.st	Sun Dec 10 18:09:43 1995 +0100
@@ -657,15 +657,25 @@
 writeRevisionLogMessagesFrom:log to:aStream
     "helper; send the revisionlog to aStream"
 
-    (log at:#renamed ifAbsent:false) ifTrue:[
-        aStream nextPutAll:'  Class was probably renamed; revision info is from original class.'.
-        aStream cr; nextPutAll:'  You may have to create a new container for it.'.
-        aStream cr; cr.
+    self writeRevisionLogMessagesFrom:log withHeader:true to:aStream
+
+    "Created: 10.12.1995 / 16:51:30 / cg"
+!
+
+writeRevisionLogMessagesFrom:log withHeader:header to:aStream
+    "helper; send the revisionlog to aStream"
+
+    header ifTrue:[
+        (log at:#renamed ifAbsent:false) ifTrue:[
+            aStream nextPutAll:'  Class was probably renamed; revision info is from original class.'.
+            aStream cr; nextPutAll:'  You may have to create a new container for it.'.
+            aStream cr; cr.
+        ].
+
+        aStream nextPutAll:'  Total revisions: '; nextPutAll:(log at:#numberOfRevisions) printString; cr.
+        aStream nextPutAll:'  Newest revision: '; nextPutAll:(log at:#newestRevision) printString; cr.
     ].
 
-    aStream nextPutAll:'  Total revisions: '; nextPutAll:(log at:#numberOfRevisions) printString; cr.
-    aStream nextPutAll:'  Newest revision: '; nextPutAll:(log at:#newestRevision) printString; cr.
-
     (log at:#revisions) do:[:entry |
         |logMsg|
 
@@ -679,11 +689,12 @@
         (logMsg isEmpty or:[logMsg isBlank or:[logMsg withoutSeparators = '.']]) ifTrue:[
             logMsg := '*** empty log message ***'
         ].
-        aStream tab; nextPutAll:logMsg; cr.
+        aStream tab; nextPutAll:logMsg.
+        aStream cr.
     ].
 
     "Created: 16.11.1995 / 13:25:30 / cg"
-    "Modified: 10.12.1995 / 12:59:50 / cg"
+    "Modified: 10.12.1995 / 16:51:15 / cg"
 !
 
 writeRevisionLogOf:aClass fromRevision:rev1 toRevision:rev2 to:aStream
@@ -719,5 +730,5 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.34 1995-12-10 12:41:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.35 1995-12-10 17:09:43 cg Exp $'
 ! !