--- a/LargeInteger.st	Thu Nov 25 21:11:30 1999 +0100
+++ b/LargeInteger.st	Fri Nov 26 13:43:34 1999 +0100
@@ -240,6 +240,21 @@
     "Modified: / 8.5.1998 / 21:40:41 / cg"
 !
 
+digitBytes:aByteArrayOfDigits MSB:msb
+    "create and return a new LargeInteger with digits (which may be in either msb/lsb order)
+     from the argument, aByteArray."
+
+    msb == false ifTrue:[
+        ^ self basicNew setDigits:aByteArrayOfDigits
+    ].
+    ^ self basicNew setDigits:(aByteArrayOfDigits copy reverse)
+
+    "
+     (LargeInteger digitBytes:#[16r10 16r20 16r30 16r00] MSB:false) hexPrintString  
+     (LargeInteger digitBytes:#[16r10 16r20 16r30 16r00] MSB:true) hexPrintString   
+    "
+!
+
 new
     "catch creation message.
      LargeIntegers are only created by system code, which 
@@ -4286,5 +4301,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.150 1999-11-22 20:44:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.151 1999-11-26 12:43:34 ca Exp $'
 ! !