--- a/ExtStream.st	Fri May 12 14:35:09 1995 +0200
+++ b/ExtStream.st	Tue May 16 19:09:45 1995 +0200
@@ -24,7 +24,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.36 1995-05-08 03:29:22 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.37 1995-05-16 17:07:02 claus Exp $
 '!
 
 !ExternalStream primitiveDefinitions!
@@ -87,7 +87,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.36 1995-05-08 03:29:22 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.37 1995-05-16 17:07:02 claus Exp $
 "
 !
 
@@ -247,7 +247,7 @@
     ]
 ! !
 
-!ExternalStream class methodsFor:'signal access '!
+!ExternalStream class methodsFor:'Signal constants'!
 
 streamErrorSignal
     "return the parent of all stream errors;
@@ -549,6 +549,18 @@
 
 !ExternalStream methodsFor:'queries'!
 
+isReadable 
+    "return true, if this stream can be read from"
+
+    ^ (mode ~~ #writeonly)
+!
+
+isWritable 
+    "return true, if this stream can be written to"
+
+    ^ (mode ~~ #readonly)
+!
+
 isBinary
     "return true, if the stream is in binary (as opposed to text-) mode.
      The default when created is false."