--- a/ByteArray.st	Sun Dec 27 19:45:23 2009 +0000
+++ b/ByteArray.st	Sun Dec 27 20:16:54 2009 +0000
@@ -1056,6 +1056,20 @@
     "
 !
 
+asIntegerMSB:isMSBFirst
+    "convert myself to an integer - the first byte is most significant.
+     This is also in Squeak."
+
+    ^ (LargeInteger digitBytes:self MSB:isMSBFirst) normalize
+
+    "
+        (#[ 2 ] asIntegerMSB:true) hexPrintString
+        (#[ 16r1 16r2 ] asIntegerMSB:true) hexPrintString
+        (#[ 16r1 16r2 ] asIntegerMSB:false) hexPrintString
+        (#[4 0 0 0 0 0 0 0] asIntegerMSB:true) hexPrintString
+    "
+!
+
 asPackedString
     "ST-80 compatibility: encode the receiver into an ascii String
      with 6bits encoded per character. Each group of 6 bits is encoded
@@ -3264,12 +3278,13 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ByteArray.st 10480 2009-12-02 21:30:55Z vranyj1 $'
+    ^ '$Id: ByteArray.st 10489 2009-12-27 20:16:54Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.197 2009/11/17 13:29:37 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.198 2009/12/15 21:35:21 stefan Exp §'
 ! !
 
 
 
+