--- a/Text.st	Tue Apr 01 20:27:37 2003 +0200
+++ b/Text.st	Mon Apr 07 18:35:10 2003 +0200
@@ -576,6 +576,12 @@
 
     "Created: 11.5.1996 / 14:08:36 / cg"
     "Modified: 16.5.1996 / 11:15:12 / cg"
+!
+
+writeStream
+    "return a stream for writing onto the receiver"
+
+    ^ TextStream on:self
 ! !
 
 !Text methodsFor:'copying'!
@@ -1480,7 +1486,7 @@
 !Text class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.84 2003-03-19 08:51:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Text.st,v 1.85 2003-04-07 16:35:10 cg Exp $'
 ! !
 
 Text initialize!