--- a/Object.st	Sun May 15 20:57:38 2016 +0200
+++ b/Object.st	Sun May 15 21:18:27 2016 +0200
@@ -688,6 +688,7 @@
 ! !
 
 
+
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1404,23 +1405,13 @@
 
 %{  /* NOCONTEXT */
 
-    REGISTER int indx;
-    int nIndex;
-    REGISTER OBJ slf;
-    REGISTER OBJ cls;
-
     if (__isSmallInteger(index)) {
-        slf = self;
+        OBJ slf = self;
         if (__isNonNilObject(slf)) {
-            unsigned char *pFirst;
-            int nIndex;
-
-            cls = __qClass(slf);
-
-            pFirst = __byteArrayVal(slf);
-            pFirst += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
-            nIndex = __byteArraySize(slf);
-            indx = __intVal(index) - 1;
+            OBJ cls = __qClass(slf);
+            INT indx = __intVal(index) - 1;
+            INT nIndex = __byteArraySize(slf);
+            unsigned char *pFirst = __byteArrayVal(slf) + __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
 
             switch ((INT)(__ClassInstPtr(cls)->c_flags) & __MASKSMALLINT(ARRAYMASK)) {
                 case __MASKSMALLINT(DOUBLEARRAY):
@@ -1471,6 +1462,7 @@
      Point new byteAt:1
      (ByteArray with:1 with:2) byteAt:2
      (WordArray with:1) byteAt:1
+     (WordArray with:1) byteAt:2
      (FloatArray with:1.0) byteAt:2
      'hello' byteAt:1
     "
@@ -1750,8 +1742,6 @@
     "
 ! !
 
-
-
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1874,7 +1864,6 @@
 ! !
 
 
-
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -10368,7 +10357,6 @@
 
 
 
-
 !Object class methodsFor:'documentation'!
 
 version