--- a/OrdColl.st	Fri Jul 28 04:38:43 1995 +0200
+++ b/OrdColl.st	Thu Aug 03 03:17:14 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.27 1995-07-02 01:07:38 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.28 1995-08-03 01:16:13 claus Exp $
 '!
 
 !OrderedCollection class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.27 1995-07-02 01:07:38 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/OrdColl.st,v 1.28 1995-08-03 01:16:13 claus Exp $
 "
 !
 
@@ -437,9 +437,9 @@
 	self makeRoomAtLast.
 	idx := lastIndex.
     ].
-    idx := idx + 1.
+    idx := lastIndex := idx + 1.
     contentsArray at:idx put:anObject.
-    lastIndex := idx.
+"/    lastIndex := idx.
     ^ anObject
 
     "