--- a/LargeInteger.st	Tue Jun 06 06:01:20 1995 +0200
+++ b/LargeInteger.st	Tue Jun 27 04:15:21 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.16 1995-06-06 03:54:21 claus Exp $
+$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.17 1995-06-27 02:13:13 claus Exp $
 '!
 
 !LargeInteger class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.16 1995-06-06 03:54:21 claus Exp $
+$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.17 1995-06-27 02:13:13 claus Exp $
 "
 !
 
@@ -1367,7 +1367,7 @@
 
     |newDigits|
 
-    newDigits := ByteArray new:(digitByteArray size + 1).
+    newDigits := ByteArray uninitializedNew:(digitByteArray size + 1).
     newDigits replaceFrom:2 with:digitByteArray startingAt:1.
     newDigits at:1 put:0.
     digitByteArray := newDigits