--- a/ReindexedCollection.st	Mon Mar 20 09:53:02 2006 +0100
+++ b/ReindexedCollection.st	Mon Mar 20 09:53:11 2006 +0100
@@ -38,11 +38,14 @@
 "
     |coll|
 
-    coll := (1 to:10) asOrderedCollection from:8.
-    coll.     
-    coll size.  
-    coll at:1.   
-    coll do:[:each | Transcript showCR:each].
+    coll := #(1 2 3 4 5 6 7 8 9 10) from:8.
+    Transcript show:'from 8: '; showCR:coll.     
+    Transcript show:'size: '; showCR:(coll size).  
+    Transcript show:'at 1: '; showCR:(coll at:1).   
+    Transcript show:'first: '; showCR:(coll first).   
+    Transcript show:'last: '; showCR:(coll last).   
+    coll do:[:each | Transcript show:'do: '; showCR:each].
+    coll reverseDo:[:each | Transcript show:'reverseDo: '; showCR:each].
 
 
     |coll|
@@ -290,5 +293,5 @@
 !ReindexedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/ReindexedCollection.st,v 1.3 2004-06-07 09:05:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/ReindexedCollection.st,v 1.4 2006-03-20 08:53:11 cg Exp $'
 ! !