--- a/TextCollector.st	Tue Jan 14 11:17:07 2020 +0100
+++ b/TextCollector.st	Wed Jan 15 15:57:55 2020 +0100
@@ -658,11 +658,16 @@
      as each display may have its own transcript.
      But typically, this is the same as Transcript."
 
-    |theTranscript app|
+    |theTranscript app myTop|
 
     theTranscript := TranscriptQuerySignal query.
     theTranscript isNil ifTrue:[
-        app := self topView application class current.
+        (myTop := self topView) notNil ifTrue:[
+            (app := myTop application) notNil ifTrue:[
+                app := app class current ? app
+            ]
+        ].
+        app isNil ifTrue:[^ Transcript].
         (app notNil and:[thisContext isRecursive not]) ifTrue:[
             theTranscript := (app transcript ? Stderr).
         ] ifFalse:[