--- a/ExternalStream.st	Sat May 06 06:26:35 1995 +0200
+++ b/ExternalStream.st	Mon May 08 05:31:14 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.35 1995-05-01 21:29:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.36 1995-05-08 03:29:22 claus Exp $
 '!
 
 !ExternalStream primitiveDefinitions!
@@ -87,7 +87,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.35 1995-05-01 21:29:31 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.36 1995-05-08 03:29:22 claus Exp $
 "
 !
 
@@ -547,6 +547,15 @@
     ^ self error:'argument must be a string'
 ! !
 
+!ExternalStream methodsFor:'queries'!
+
+isBinary
+    "return true, if the stream is in binary (as opposed to text-) mode.
+     The default when created is false."
+
+    ^ binary
+! !
+
 !ExternalStream methodsFor:'accessing'!
 
 readonly
@@ -1731,8 +1740,14 @@
 
 !ExternalStream methodsFor:'writing'!
 
+commit
+    "write all buffered date - ignored if unbuffered"
+
+    self synchronizeOutput
+!
+
 synchronizeOutput
-    "write all buffered data - for buffered mode only"
+    "write all buffered data - ignored if unbuffered"
 
 %{  /* NOCONTEXT */
     OBJ fp;