--- a/WriteStr.st	Wed Oct 15 14:32:25 1997 +0200
+++ b/WriteStr.st	Wed Oct 15 14:32:49 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:13:54 pm'                 !
+
 PositionableStream subclass:#WriteStream
 	instanceVariableNames:''
 	classVariableNames:''
@@ -185,6 +187,14 @@
 
 !WriteStream methodsFor:'queries'!
 
+isEmpty
+    "return true, if the contents of the stream is empty"
+
+    ^ position == 1
+
+    "Created: 14.10.1997 / 20:44:37 / cg"
+!
+
 isWritable
     "return true, if writing is supported by the recevier.
      Always return true here"
@@ -192,6 +202,14 @@
     ^ true
 
     "Modified: 16.5.1996 / 14:44:49 / cg"
+!
+
+size
+    "return the current size"
+
+    ^ position - 1.
+
+    "Created: 14.10.1997 / 20:43:49 / cg"
 ! !
 
 !WriteStream methodsFor:'reading'!
@@ -391,5 +409,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WriteStr.st,v 1.38 1997-09-06 17:17:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WriteStr.st,v 1.39 1997-10-15 12:32:49 cg Exp $'
 ! !

--- a/WriteStream.st	Wed Oct 15 14:32:25 1997 +0200
+++ b/WriteStream.st	Wed Oct 15 14:32:49 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:13:54 pm'                 !
+
 PositionableStream subclass:#WriteStream
 	instanceVariableNames:''
 	classVariableNames:''
@@ -185,6 +187,14 @@
 
 !WriteStream methodsFor:'queries'!
 
+isEmpty
+    "return true, if the contents of the stream is empty"
+
+    ^ position == 1
+
+    "Created: 14.10.1997 / 20:44:37 / cg"
+!
+
 isWritable
     "return true, if writing is supported by the recevier.
      Always return true here"
@@ -192,6 +202,14 @@
     ^ true
 
     "Modified: 16.5.1996 / 14:44:49 / cg"
+!
+
+size
+    "return the current size"
+
+    ^ position - 1.
+
+    "Created: 14.10.1997 / 20:43:49 / cg"
 ! !
 
 !WriteStream methodsFor:'reading'!
@@ -391,5 +409,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.38 1997-09-06 17:17:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.39 1997-10-15 12:32:49 cg Exp $'
 ! !