changed the parent class of ByteArray from Collection to Array.

enhanced socket writing a bit

moo/kernel/Collect.moo

@@ -225,17 +225,9 @@ class(#character,#final,#limited,#immutable) Symbol(String)
 
 ## -------------------------------------------------------------------------------
 
-class(#byte) ByteArray(Collection)
+class(#byte) ByteArray(Array)
 {
-	method at: anInteger
+	## TODO: is it ok for ByteArray to inherit from Array?
-	{
-		^self basicAt: anInteger.
-	}
-
-	method at: anInteger put: aValue
-	{
-		^self basicAt: anInteger put: aValue.
-	}
 }
 
 ## -------------------------------------------------------------------------------

moo/kernel/Socket.moo

@@ -342,7 +342,7 @@ extend Socket
 
 		if (self.outputReady)
 		{
-			if ((self _writeBytes: bytes) >= 0) { ^self }.
+			if ((self _writeBytes: bytes offset: offset length: length) >= 0) { ^self }.
 			self.outputReady := false.
 		}.
 
@@ -517,7 +517,6 @@ error -> exception
 					##sck writeBytes: #[ $h, $e, $l, $l, $o, $., $., $., C'\n' ].
 					sck writeBytes: data offset: 0 length: n.
 				}.
-
 			}
 			while (true).
 		].