--- a/Object.st	Sat Sep 16 19:14:32 1995 +0200
+++ b/Object.st	Sun Sep 17 19:57:55 1995 +0200
@@ -30,7 +30,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.63 1995-09-03 15:05:41 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.64 1995-09-17 17:57:05 claus Exp $
 '!
 
 !Object class methodsFor:'documentation'!
@@ -51,7 +51,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Object.st,v 1.63 1995-09-03 15:05:41 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Object.st,v 1.64 1995-09-17 17:57:05 claus Exp $
 "
 !
 
@@ -631,6 +631,13 @@
     ^ false
 !
 
+isExternalStream
+    "return true, if the receiver is some kind of externalStream;
+     false is returned here - the method is only redefined in ExternalStream."
+
+    ^false
+!
+
 isFileStream
     "return true, if the receiver is some kind of fileStream;
      false is returned here - the method is only redefined in FileStream."