--- a/ExternalStream.st	Mon Oct 05 13:48:26 1998 +0200
+++ b/ExternalStream.st	Fri Oct 09 16:19:06 1998 +0200
@@ -1316,6 +1316,28 @@
 
 !ExternalStream methodsFor:'Squeak compatibility'!
 
+nextInto:aByteArrayOrString
+    "read elements into the argument, whose size determines the amount
+     of bytes to read. If not enough elements could be read, return
+     a copy of the argument; otherwise, return the filled argument."
+
+    |n nWanted|
+
+    nWanted := aByteArrayOrString size.
+    n := self nextAvailableBytes:nWanted into:aByteArrayOrString startingAt:1.
+    n == nWanted ifTrue:[^ aByteArrayOrString].
+    ^ aByteArrayOrString copyTo:n
+
+!
+
+readInto:aByteArrayOrString startingAt:index count:nBytes
+    "same as #nextBytes:into:startingAt:
+     Squeak compatibility."
+
+    ^ self nextBytes:nBytes into:aByteArrayOrString startingAt:index.
+
+!
+
 readOnly
     "Squeak compatibility: make the stream readOnly"
 
@@ -4733,6 +4755,6 @@
 !ExternalStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.175 1998-10-02 16:52:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.176 1998-10-09 14:19:06 cg Exp $'
 ! !
 ExternalStream initialize!