--- a/WriteStream.st	Fri Apr 26 15:30:07 2013 +0200
+++ b/WriteStream.st	Fri Apr 26 16:11:10 2013 +0200
@@ -103,6 +103,12 @@
 
 !WriteStream methodsFor:'accessing'!
 
+clear
+    "for compatibility with Transcript"
+
+    self reset
+!
+
 contents
     "return the current contents (a collection) of the stream.
      Currently, this returns the actual collection if possible
@@ -626,10 +632,10 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.75 2013-03-22 14:20:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.76 2013-04-26 14:11:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.75 2013-03-22 14:20:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.76 2013-04-26 14:11:10 cg Exp $'
 ! !