--- a/Integer.st	Wed Nov 24 17:29:53 1999 +0100
+++ b/Integer.st	Wed Nov 24 17:33:59 1999 +0100
@@ -769,9 +769,10 @@
          modulo 8 shifts can be done faster ...
         "
         bitShift == 0 ifTrue:[
-            result := self class basicNew numberOfDigits:n + digitShift.
+            n := n + digitShift.
+            result := self class basicNew numberOfDigits:n.
             result sign:self sign.
-            result digitBytes replaceFrom:(digitShift + 1) with:self digitBytes.
+            result digitBytes replaceFrom:(digitShift + 1) to:n with:self digitBytes.
             "
              no normalize needed, since receiver was already normalized
             "
@@ -2532,6 +2533,6 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.124 1999-11-18 16:19:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.125 1999-11-24 16:33:59 cg Exp $'
 ! !
 Integer initialize!