--- a/Stream.st	Wed Aug 28 10:49:29 2013 +0100
+++ b/Stream.st	Wed Sep 04 09:43:51 2013 +0100
@@ -194,7 +194,6 @@
     ^ ChunkSeparator
 ! !
 
-
 !Stream methodsFor:'accessing'!
 
 contents
@@ -1873,6 +1872,19 @@
 
 !Stream methodsFor:'queries'!
 
+current
+    "for compatibility with Transcript - allow Transcript current,
+     even if redirected to the standardError"
+
+    self == Transcript ifTrue:[
+        ^ self
+    ].
+    "/ this will raise an DNU error, usually.
+    ^ super current
+
+    "Modified (comment): / 29-08-2013 / 11:09:21 / cg"
+!
+
 inputStream
     "return the receiver.
      for compatibility with filtering streams"
@@ -2750,6 +2762,16 @@
     ^ false
 !
 
+isTextCollector
+    ^ false
+
+    "
+     Transcript isTextCollector
+    "
+
+    "Created: / 29-08-2013 / 11:33:10 / cg"
+!
+
 notEmpty
     "return true, if the contents of the stream is not empty"
 
@@ -3467,11 +3489,11 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.209 2013-08-27 07:21:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.210 2013-08-29 09:33:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.209 2013-08-27 07:21:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.210 2013-08-29 09:33:49 cg Exp $'
 ! !