--- a/Stream.st	Thu Aug 19 13:20:32 2010 +0200
+++ b/Stream.st	Thu Aug 19 15:43:26 2010 +0200
@@ -194,6 +194,7 @@
     ^ ChunkSeparator
 ! !
 
+
 !Stream methodsFor:'accessing'!
 
 contents
@@ -2914,7 +2915,9 @@
         Smalltalk at:#Transcript put:Stdout
      or to use #show:/#showCR: with internal or external streams."
 
-    (something bindWith:arg) printOn:self
+    self show:(something bindWith:arg)
+
+    "Modified: / 19-08-2010 / 15:42:00 / cg"
 !
 
 show:something with:arg1 with:arg2
@@ -2925,7 +2928,9 @@
         Smalltalk at:#Transcript put:Stdout
      or to use #show:/#showCR: with internal or external streams."
 
-    (something bindWith:arg1 with:arg2) printOn:self
+    self show:(something bindWith:arg1 with:arg2)
+
+    "Modified: / 19-08-2010 / 15:42:09 / cg"
 !
 
 show:something with:arg1 with:arg2 with:arg3
@@ -2936,7 +2941,22 @@
         Smalltalk at:#Transcript put:Stdout
      or to use #show:/#showCR: with internal or external streams."
 
-    (something bindWith:arg1 with:arg2 with:arg3) printOn:self
+    self show:(something bindWith:arg1 with:arg2 with:arg3)
+
+    "Modified: / 19-08-2010 / 15:42:17 / cg"
+!
+
+show:something with:arg1 with:arg2 with:arg3 with:arg4
+    "append a printed representation of the argument to the stream, expanding
+     the placeHolders %1,%2 and %3 with the printStrings of arg1, arg2 and arg3.
+     This makes streams somewhat compatible to TextCollectors and
+     allows you to say: 
+        Smalltalk at:#Transcript put:Stdout
+     or to use #show:/#showCR: with internal or external streams."
+
+    self show:(something bindWith:arg1 with:arg2 with:arg3 with:arg4)
+
+    "Created: / 19-08-2010 / 15:42:25 / cg"
 !
 
 showCR:aString
@@ -2954,6 +2974,58 @@
     "Modified: 11.7.1996 / 10:01:27 / cg"
 !
 
+showCR:something with:arg
+    "append a printed representation of the argument to the stream, expanding
+     the placeHolder %1 with the printString of arg.
+     This makes streams somewhat compatible to TextCollectors and
+     allows you to say: 
+        Smalltalk at:#Transcript put:Stdout
+     or to use #show:/#showCR: with internal or external streams."
+
+    self showCR:(something bindWith:arg)
+
+    "Created: / 19-08-2010 / 15:41:46 / cg"
+!
+
+showCR:something with:arg1 with:arg2
+    "append a printed representation of the argument to the stream, expanding
+     the placeHolders %1 and %2 with the printStrings of arg1 and arg2.
+     This makes streams somewhat compatible to TextCollectors and
+     allows you to say: 
+        Smalltalk at:#Transcript put:Stdout
+     or to use #show:/#showCR: with internal or external streams."
+
+    self showCR:(something bindWith:arg1 with:arg2)
+
+    "Created: / 19-08-2010 / 15:42:37 / cg"
+!
+
+showCR:something with:arg1 with:arg2 with:arg3
+    "append a printed representation of the argument to the stream, expanding
+     the placeHolders %1,%2 and %3 with the printStrings of arg1, arg2 and arg3.
+     This makes streams somewhat compatible to TextCollectors and
+     allows you to say: 
+        Smalltalk at:#Transcript put:Stdout
+     or to use #show:/#showCR: with internal or external streams."
+
+    self showCR:(something bindWith:arg1 with:arg2 with:arg3)
+
+    "Created: / 19-08-2010 / 15:42:43 / cg"
+!
+
+showCR:something with:arg1 with:arg2 with:arg3 with:arg4
+    "append a printed representation of the argument to the stream, expanding
+     the placeHolders %1,%2 and %3 with the printStrings of arg1, arg2 and arg3.
+     This makes streams somewhat compatible to TextCollectors and
+     allows you to say: 
+        Smalltalk at:#Transcript put:Stdout
+     or to use #show:/#showCR: with internal or external streams."
+
+    self showCR:(something bindWith:arg1 with:arg2 with:arg3 with:arg4)
+
+    "Created: / 19-08-2010 / 15:42:50 / cg"
+!
+
 showCr:aString
     "append a printed representation of the argument to the stream
      and append a newline character.
@@ -3129,11 +3201,11 @@
 !Stream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.185 2009-12-17 15:52:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.186 2010-08-19 13:43:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.185 2009-12-17 15:52:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.186 2010-08-19 13:43:26 cg Exp $'
 ! !
 
 Stream initialize!