--- a/Integer.st	Sun Mar 21 17:58:43 2010 +0000
+++ b/Integer.st	Sun Mar 21 19:37:43 2010 +0000
@@ -1139,7 +1139,6 @@
     ^ self == Integer
 ! !
 
-
 !Integer methodsFor:'Compatibility-Dolphin'!
 
 & aNumber
@@ -2208,6 +2207,20 @@
 
 !Integer methodsFor:'byte access'!
 
+byteAt:anIndex
+    "compatibility with ByteArrays etc."
+
+    ^ self digitAt:anIndex
+
+    "
+        12345678 byteAt:2
+        12345678 digitBytes at:2
+
+        -12345678 byteAt:2
+        -12345678 digitBytes at:2
+    "
+!
+
 digitByteLength
     "return the number bytes required for a 2's complement
      binary representation of this Integer.
@@ -3920,7 +3933,6 @@
     "Modified: 15.10.1997 / 18:43:49 / cg"
 ! !
 
-
 !Integer methodsFor:'special access'!
 
 exponent
@@ -4699,11 +4711,11 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Integer.st 10496 2010-02-01 10:03:06Z vranyj1 $'
+    ^ '$Id: Integer.st 10508 2010-03-21 19:37:43Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Integer.st,v 1.244 2010/01/30 11:39:43 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Integer.st,v 1.245 2010/03/12 11:33:00 stefan Exp §'
 ! !
 
 Integer initialize!
@@ -4712,3 +4724,4 @@
 
 
 
+