--- a/TextCollector.st	Mon Jan 19 13:47:39 1998 +0100
+++ b/TextCollector.st	Mon Jan 19 13:55:57 1998 +0100
@@ -526,7 +526,11 @@
     "
      fancy feature: whenever Transcript is closed, reset to StdError
     "
-    self destroyAction:[Smalltalk at:#Transcript put:Stderr].
+    self destroyAction:[
+        self == (Smalltalk at:#Transcript) ifTrue:[
+            Smalltalk at:#Transcript put:Stderr
+        ]
+    ].
 
     "/ user may prefer a special color for this one;
     "/ look into the style definitions ...
@@ -548,5 +552,5 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.40 1997-11-03 15:30:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.41 1998-01-19 12:55:57 ca Exp $'
 ! !