--- a/ByteArray.st	Fri Jul 25 23:21:22 2014 +0200
+++ b/ByteArray.st	Fri Jul 25 23:23:02 2014 +0200
@@ -163,6 +163,9 @@
 
 
 
+
+
+
 !ByteArray class methodsFor:'queries'!
 
 elementByteSize
@@ -181,6 +184,8 @@
 ! !
 
 
+
+
 !ByteArray methodsFor:'Compatibility-Squeak'!
 
 bitXor:aByteArray
@@ -1055,7 +1060,7 @@
     "convert myself to an integer - the first byte is most significant.
      This is also in Squeak."
 
-    ^ (LargeInteger digitBytes:self MSB:true) compressed
+    ^ self asIntegerMSB:true
 
     "
         #[ 2 ] asInteger hexPrintString
@@ -3045,13 +3050,14 @@
     "Modified: 22.4.1996 / 12:55:30 / cg"
 ! !
 
+
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.214 2014-07-10 12:23:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.215 2014-07-25 21:23:02 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.214 2014-07-10 12:23:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.215 2014-07-25 21:23:02 cg Exp $'
 ! !