--- a/OrderedCollection.st	Mon Nov 08 03:29:58 1993 +0100
+++ b/OrderedCollection.st	Mon Nov 08 03:32:43 1993 +0100
@@ -31,7 +31,7 @@
 firstIndex      <SmallInteger>  index of first valid element
 lastIndex       <SmallInteger>  index of last valid element
 
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.4 1993-10-13 02:13:01 claus Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.5 1993-11-08 02:31:14 claus Exp $
 written spring 89 by claus
 '!
 
@@ -239,10 +239,13 @@
     "grow the contents for more room at the end"
 
     |newContents 
-     oldSize "{ Class:SmallInteger }" |
+     oldSize "{ Class:SmallInteger }"
+     newSize "{ Class:SmallInteger }" |
 
     oldSize := contentsArray size.
-    newContents := Array new:(oldSize * 2).
+    newSize := oldSize * 2.
+    newSize == 0 ifTrue:[ newSize := 1].
+    newContents := Array new:newSize.
     newContents replaceFrom:1 to:oldSize with:contentsArray.
     contentsArray := newContents
 !
@@ -256,6 +259,7 @@
 
     oldSize := contentsArray size.
     newSize := oldSize * 2.
+    newSize == 0 ifTrue:[ newSize := 1].
     newContents := Array new:newSize.
     newContents replaceFrom:(oldSize + 1) to:newSize with:contentsArray startingAt:1.
     contentsArray := newContents.