--- a/Text.st	Thu Dec 13 00:11:30 2012 +0100
+++ b/Text.st	Wed Dec 19 09:56:40 2012 +0100
@@ -339,10 +339,10 @@
     ^ self new:size
 !
 
-writeStream
-    "answer the stream, that is best used with this class"
+writeStreamClass
+    "the class used by writeStream"
 
-    ^ TextStream on:(self new:100)
+    ^ TextStream
 ! !
 
 !Text class methodsFor:'emphasis constants'!
@@ -1812,11 +1812,12 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.116 2012-11-06 01:44:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.117 2012-12-19 08:56:40 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.116 2012-11-06 01:44:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.117 2012-12-19 08:56:40 stefan Exp $'
 ! !
 
+
 Text initialize!