--- a/TextColl.st	Wed Oct 13 02:01:27 1993 +0100
+++ b/TextColl.st	Wed Oct 13 02:04:14 1993 +0100
@@ -28,7 +28,7 @@
 Instances of this view can take the place of a stream and display the received
 text; it is used especially for Transcript.
 
-%W% %E%
+$Header: /cvs/stx/stx/libwidg/Attic/TextColl.st,v 1.2 1993-10-13 01:03:43 claus Exp $
 written winter-89 by claus
 '!
 
@@ -122,13 +122,15 @@
     "insert the bunch of lines - if any"
     nLines := outstandingLines size.
     (nLines ~~ 0) ifTrue:[
+"
         outstandingLines do:[:line |
             self insertStringAtCursor:line.
             self insertCharAtCursor:(Character cr)
         ].
 "
+" "
         self insertLines:outstandingLines withCr:true.
-"
+" "
         self withCursorOffDo:[
             (cursorLine >= (firstLineShown + nFullLinesShown)) ifTrue:[
                 self scrollDown:nLines