--- a/DoubleArray.st	Tue Apr 22 11:38:04 2003 +0200
+++ b/DoubleArray.st	Tue Apr 22 11:39:34 2003 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 ArrayedCollection variableDoubleSubclass:#DoubleArray
 	instanceVariableNames:''
 	classVariableNames:''
@@ -81,8 +83,14 @@
 "
 ! !
 
+!DoubleArray methodsFor:'queries'!
+
+defaultElement
+    ^ Float zero
+! !
+
 !DoubleArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/DoubleArray.st,v 1.18 1999-03-19 20:42:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/DoubleArray.st,v 1.19 2003-04-22 09:39:34 cg Exp $'
 ! !