--- a/SplittingWriteStream.st	Fri Apr 26 13:45:25 2013 +0200
+++ b/SplittingWriteStream.st	Fri Apr 26 16:11:17 2013 +0200
@@ -59,22 +59,26 @@
 outStream1
     "return the value of the instance variable 'outStream1' (automatically generated)"
 
-    ^ outStream1!
+    ^ outStream1
+!
 
 outStream1:something
     "set the value of the instance variable 'outStream1' (automatically generated)"
 
-    outStream1 := something.!
+    outStream1 := something.
+!
 
 outStream2
     "return the value of the instance variable 'outStream2' (automatically generated)"
 
-    ^ outStream2!
+    ^ outStream2
+!
 
 outStream2:something
     "set the value of the instance variable 'outStream2' (automatically generated)"
 
-    outStream2 := something.! !
+    outStream2 := something.
+! !
 
 !SplittingWriteStream methodsFor:'private access'!
 
@@ -86,12 +90,21 @@
 
 !SplittingWriteStream methodsFor:'writing'!
 
+clear
+    outStream1 isStream ifFalse:[ outStream1 clear ]. 
+    outStream2 isStream ifFalse:[ outStream2 clear ].
+!
+
 close
     outStream1 close.
     outStream2 close.
 
 !
 
+contents
+    ^ outStream1 contents 
+!
+
 endEntry
     outStream1 endEntry.
     outStream2 endEntry.
@@ -119,5 +132,6 @@
 !SplittingWriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/SplittingWriteStream.st,v 1.2 2000-09-11 18:09:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/SplittingWriteStream.st,v 1.3 2013-04-26 14:11:17 cg Exp $'
 ! !
+