--- a/ByteArray.st	Fri Feb 29 11:12:29 2008 +0100
+++ b/ByteArray.st	Fri Feb 29 11:13:15 2008 +0100
@@ -172,6 +172,14 @@
     "Modified: 23.4.1996 / 15:56:25 / cg"
 ! !
 
+!ByteArray methodsFor:'Compatibility-Squeak'!
+
+copyFromByteArray:aByteArray
+    "copy as much as possible from aByteArray"
+
+    self replaceFrom:1 to:(self size min:aByteArray size) with:aByteArray startingAt:1
+! !
+
 !ByteArray methodsFor:'accessing'!
 
 basicAt:index
@@ -3191,5 +3199,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.179 2008-01-07 09:14:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.180 2008-02-29 10:13:15 cg Exp $'
 ! !