--- a/OrderedCollection.st	Wed Nov 08 15:26:31 1995 +0100
+++ b/OrderedCollection.st	Wed Nov 08 15:36:11 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.34 1995-11-08 12:16:58 cg Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.35 1995-11-08 14:36:11 cg Exp $
 '!
 
 !OrderedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.34 1995-11-08 12:16:58 cg Exp $
+$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.35 1995-11-08 14:36:11 cg Exp $
 "
 !
 
@@ -859,11 +859,8 @@
      which get elements removed at the end and added at front.
     "
     oldSize > (sz * 2) ifTrue:[
-	sz > 1 ifTrue:[
-	    startIndex := oldSize // 4.
-	    startIndex == 0 ifTrue:[
-		startIndex := 1
-	    ].
+	startIndex := oldSize // 4.
+	startIndex > 1 ifTrue:[
 	    contentsArray
 		replaceFrom:startIndex
 		to:startIndex + sz - 1