--- a/TextCollector.st	Thu Sep 21 11:58:17 2000 +0200
+++ b/TextCollector.st	Fri Sep 22 13:43:58 2000 +0200
@@ -492,11 +492,16 @@
      In multiDisplay applications, this need NOT be the main transcript.
      But typically, this is the same as Transcript."
 
-    |theTranscript|
+    |theTranscript app|
 
     theTranscript := TranscriptQuerySignal query.
     theTranscript isNil ifTrue:[
-        theTranscript := (self topView application class current transcript ? Stderr).
+        app := self topView application class current.
+        app notNil ifTrue:[
+            theTranscript := (app transcript ? Stderr).
+        ] ifFalse:[
+            theTranscript := Stderr.
+        ]
     ].
     ^ theTranscript
 
@@ -780,6 +785,6 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.65 2000-09-06 13:50:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.66 2000-09-22 11:43:58 cg Exp $'
 ! !
 TextCollector initialize!