--- a/BooleanArray.st	Tue Aug 22 15:57:19 2000 +0200
+++ b/BooleanArray.st	Tue Aug 22 16:02:25 2000 +0200
@@ -119,6 +119,10 @@
     nBytes := size // 8.
     (size \\ 8) ~~ 0 ifTrue:[nBytes := nBytes + 1].
     ^ (super new:nBytes) setTally:size
+
+    "
+     BooleanArray new:10
+    "
 ! !
 
 !BooleanArray methodsFor:'accessing'!
@@ -210,6 +214,10 @@
 
 !BooleanArray methodsFor:'queries'!
 
+defaultElement
+    ^ false
+!
+
 size
     "return the size of the receiver"
 
@@ -219,5 +227,5 @@
 !BooleanArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/BooleanArray.st,v 1.9 2000-08-22 13:56:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BooleanArray.st,v 1.10 2000-08-22 14:02:25 cg Exp $'
 ! !