--- a/BitArray.st	Sun Feb 16 01:34:04 2014 +0100
+++ b/BitArray.st	Tue Feb 18 12:13:28 2014 +0100
@@ -110,6 +110,20 @@
 
 !BitArray class methodsFor:'instance creation'!
 
+fromBytes:aByteArray
+    "return a new instance, capable of holding aByteArray size*8 bits, initialized from aByteArray"
+
+    |a|
+
+    a := self new: aByteArray size*8.
+    1 to:aByteArray size do:[:i | a byteAt:i put:(aByteArray at:i)].
+    ^ a
+
+    "
+     BitArray fromBytes:#[ 2r00001111 2r10101010 2r01010101]
+    "
+!
+
 new:size
     "return a new instance, capable of holding size bits"
 
@@ -392,7 +406,6 @@
     ^ tally
 ! !
 
-
 !BitArray methodsFor:'visiting'!
 
 acceptVisitor:aVisitor with:aParameter
@@ -403,9 +416,10 @@
 !BitArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/BitArray.st,v 1.14 2009-10-27 11:04:45 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BitArray.st,v 1.15 2014-02-18 11:13:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/BitArray.st,v 1.14 2009-10-27 11:04:45 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BitArray.st,v 1.15 2014-02-18 11:13:28 cg Exp $'
 ! !
+