--- a/TextCollector.st	Sat Aug 17 14:42:40 2019 +0200
+++ b/TextCollector.st	Sun Aug 18 20:11:12 2019 +0200
@@ -1346,6 +1346,13 @@
 
 !TextCollector methodsFor:'transcript specials'!
 
+assertEndEntry
+    "assert there is no pending collected output"
+
+    self assert:(outstandingLines isEmptyOrNil).
+    self assert:(outstandingLine isEmptyOrNil)
+!
+
 beTranscript
     "make the receiver be the systemTranscript; this one
      is accessible via the global Transcript and gets relevant
@@ -1452,7 +1459,10 @@
         ]
     ].
 
-    (device isNil or:[device isOpen not or:[self drawableId isNil]]) ifTrue:[
+    (device isNil
+      or:[device isOpen not
+      or:[self drawableId isNil
+    ]]) ifTrue:[
         "on snapshot load, Transcript may not yet be re-created.
          Write to Stderr then."
         Stderr notNil ifTrue:[
@@ -1469,25 +1479,11 @@
         ^ self.
     ].
 
-    "/ self ~~ Transcript ifTrue:[ 'e ' print. 
-    "/    thisContext fullPrintAll.
-    "/ ].
-
-"/    access owner == Processor activeProcess ifTrue:[
-"/self ~~ Transcript ifTrue:[ 'eI' printCR ].
-"/        self installDelayedUpdate.
-"/        ^ self
-"/    ].
-
     access critical:[
         collecting ifTrue:[
             flushBlock notNil ifTrue:[
                 Processor removeTimedBlock:flushBlock.
             ].
-"/            flushPending ifFalse:[
-"/self ~~ Transcript ifTrue:[ 'eP' printCR ].
-"/                ^ self
-"/            ].
         ].
 
         "/ self ~~ Transcript ifTrue:[ 'e1' printCR ].
@@ -1544,10 +1540,6 @@
                 inFlush := false.
             ]
         ].
-"/        flushPending ifTrue:[
-"/            flushPending := false.
-"/            self installDelayedUpdate
-"/        ]
     ].
 
     "Modified: / 09-11-1998 / 21:17:56 / cg"