--- a/TextCollector.st	Thu Nov 22 10:26:24 2012 +0100
+++ b/TextCollector.st	Thu Nov 22 15:23:12 2012 +0100
@@ -104,6 +104,15 @@
 
     |topView transcript defSz f v lines cols|
 
+    transcript := Smalltalk at:name.
+    (transcript isTextView and:[transcript isOpen and:[transcript device == Screen current]]) ifTrue:[
+        "if there is already an open Transcript on the same device, 
+         do not open an additional one.
+         expecco StandardLibrary <= 2.0.0.3 checked for Transcript>>#isStream and
+         tries to opens a new Transcript window for each new Transcribe with expecco >=2.4"
+        ^ transcript.
+    ].
+
     topView := StandardSystemView label:name "minExtent:(100 @ 100)".
 
     v := HVScrollableView for:self miniScrollerH:true miniScrollerV:false in:topView.
@@ -1004,11 +1013,11 @@
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.114 2012-11-05 17:06:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.115 2012-11-22 14:23:12 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.114 2012-11-05 17:06:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.115 2012-11-22 14:23:12 stefan Exp $'
 ! !
 
 TextCollector initialize!