--- a/ReindexedCollection.st	Tue Feb 21 21:40:48 2017 +0100
+++ b/ReindexedCollection.st	Wed Feb 22 10:57:03 2017 +0100
@@ -198,7 +198,10 @@
      instance variable indicated by index.  
      Answer the value that was stored."
 
+    self shouldNotImplement. "/ I am readOnly
     ^ sequence at: (interval at: index) put: value
+
+    "Modified: / 22-02-2017 / 10:46:21 / cg"
 !
 
 size
@@ -316,8 +319,10 @@
 !
 
 initialize: aSequence with: anInterval 
-        sequence := aSequence.
-        interval := anInterval
+    sequence := aSequence.
+    interval := anInterval
+
+    "Modified (format): / 22-02-2017 / 10:46:38 / cg"
 ! !
 
 !ReindexedCollection methodsFor:'queries'!