--- a/Object.st	Wed Apr 06 13:25:19 2011 +0100
+++ b/Object.st	Sat Apr 09 18:19:04 2011 +0100
@@ -688,6 +688,36 @@
 
 !Object methodsFor:'accessing'!
 
+_at:index
+    "experimental:
+     this is a synthetic selector, generated by the compiler,
+     if a construct of the form expr[idx...] is parsed.
+     I.e.
+        v[n]
+     generates
+        v _at: n
+    "
+
+    ^ self at:index
+
+    "Created: / 21-03-2011 / 14:07:57 / cg"
+!
+
+_at:index put:value
+    "experimental:
+     this is a synthetic selector, generated by the compiler,
+     if a construct of the form expr[idx...] is parsed.
+     I.e.
+        v[n]
+     generates
+        v _at: n
+    "
+
+    ^ self at:index put:value
+
+    "Created: / 21-03-2011 / 14:10:12 / cg"
+!
+
 at:index
     "return the indexed instance variable with index, anInteger;
      this method can be redefined in subclasses."
@@ -2100,6 +2130,7 @@
 %}
 ! !
 
+
 !Object methodsFor:'converting'!
 
 -> anObject
@@ -9372,15 +9403,15 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Object.st 10604 2011-02-04 23:09:23Z vranyj1 $'
+    ^ '$Id: Object.st 10632 2011-04-09 17:19:04Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /cvs/stx/stx/libbasic/Object.st,v 1.663 2011/01/31 12:05:03 cg Exp '
+    ^ 'Header: /var/local/cvs/stx/libbasic/Object.st,v 1.664 2011-03-21 13:16:18 cg Exp '
 !
 
 version_SVN
-    ^ '$Id: Object.st 10604 2011-02-04 23:09:23Z vranyj1 $'
+    ^ '$Id: Object.st 10632 2011-04-09 17:19:04Z vranyj1 $'
 ! !
 
 Object initialize!
@@ -9389,3 +9420,4 @@
 
 
 
+