--- a/OrderedCollection.st	Tue Oct 09 19:52:38 2001 +0200
+++ b/OrderedCollection.st	Tue Oct 09 19:55:36 2001 +0200
@@ -1645,6 +1645,13 @@
 
     firstIndex := newFirstIndex.
     lastIndex := newLastIndex.
+!
+
+setIndices
+    "added for VW compatibility: set the indices for an empty collection"
+
+    firstIndex := 1.
+    lastIndex := 0.
 ! !
 
 !OrderedCollection methodsFor:'private accessing'!
@@ -1817,5 +1824,5 @@
 !OrderedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.78 2001-05-21 08:08:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OrderedCollection.st,v 1.79 2001-10-09 17:55:36 cg Exp $'
 ! !