--- a/LargeInteger.st	Thu Oct 25 15:12:33 2001 +0200
+++ b/LargeInteger.st	Thu Oct 25 17:24:58 2001 +0200
@@ -246,10 +246,14 @@
     "create and return a new LargeInteger with digits (which may be in either msb/lsb order)
      from the argument, aByteArray."
 
+    |digits|
+
     msb == false ifTrue:[
-        ^ self basicNew setDigits:aByteArrayOfDigits
+        digits := aByteArrayOfDigits
+    ] ifFalse:[
+        digits := aByteArrayOfDigits copy reverse
     ].
-    ^ self basicNew setDigits:(aByteArrayOfDigits copy reverse)
+    ^ self basicNew setDigits:digits
 
     "
      (LargeInteger digitBytes:#[16r10 16r20 16r30 16r00] MSB:false) hexPrintString  
@@ -4393,5 +4397,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.161 2001-10-02 14:35:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.162 2001-10-25 15:24:58 cg Exp $'
 ! !