--- a/ByteArray.st	Fri Jun 04 21:48:59 1999 +0200
+++ b/ByteArray.st	Fri Jun 04 23:17:10 1999 +0200
@@ -399,7 +399,7 @@
 !
 
 bitSetAt:index
-    "return the bit at index" 
+    "set the bit at index (index starts with 1)" 
 
 %{  /* NOCONTEXT */
 
@@ -428,7 +428,10 @@
     ^ self primitiveFailed
 
    "
-     #[ 0 0 0 0 ] bitSetAt:9
+     #[ 0 0 0 0 ] bitSetAt:1  
+     #[ 0 0 0 0 ] bitSetAt:4  
+     #[ 0 0 0 0 ] bitSetAt:8  
+     #[ 0 0 0 0 ] bitSetAt:9  
      #[ 0 0 0 0 ] bitSetAt:10
      #[ 0 0 0 0 ] bitSetAt:11
    "
@@ -2176,5 +2179,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.109 1999-05-08 17:12:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.110 1999-06-04 21:17:10 cg Exp $'
 ! !