--- a/ByteArray.st	Mon Oct 05 13:03:20 2009 +0200
+++ b/ByteArray.st	Mon Oct 05 13:07:38 2009 +0200
@@ -175,6 +175,19 @@
 
 !ByteArray methodsFor:'Compatibility-Squeak'!
 
+bitXor:aByteArray
+    "return a new byteArray containing the bitWise-xor of the receiver's and the
+     argument's bytes"
+
+    |answer|
+
+    answer := self copy.
+    1 to: self size do: [ :each | 
+        answer at: each put: ((self at: each) bitXor: (aByteArray at: each))
+    ].
+    ^ answer
+!
+
 copyFromByteArray:aByteArray
     "copy as much as possible from aByteArray"
 
@@ -3135,6 +3148,7 @@
     "
 ! !
 
+
 !ByteArray methodsFor:'searching'!
 
 indexOf:aByte startingAt:start
@@ -3217,9 +3231,9 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.191 2009-10-01 23:56:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.192 2009-10-05 11:07:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.191 2009-10-01 23:56:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.192 2009-10-05 11:07:38 cg Exp $'
 ! !