--- a/Integer.st	Sun Oct 03 10:45:31 1999 +0200
+++ b/Integer.st	Sun Oct 03 10:50:24 1999 +0200
@@ -709,7 +709,7 @@
         bitShift == 0 ifTrue:[
             result := self class basicNew numberOfDigits:n + digitShift.
             result sign:self sign.
-            result digits replaceFrom:(digitShift + 1) with:self digits.
+            result digitBytes replaceFrom:(digitShift + 1) with:self digitBytes.
             "
              no normalize needed, since receiver was already normalized
             "
@@ -789,7 +789,7 @@
             n := n-digitShift.
             result := self class basicNew numberOfDigits:n.
             result sign:self sign.
-            result digits replaceFrom:1 to:n with:self digits startingAt:(digitShift + 1) .
+            result digitBytes replaceFrom:1 to:n with:self digitBytes startingAt:(digitShift + 1) .
             n <= SmallInteger maxBytes ifTrue:[
                 ^ result compressed
             ].
@@ -1477,7 +1477,7 @@
     [b > 0] whileTrue:[
         rem >= self ifTrue:[
             rem := rem -= self.
-            result digits bitSetAt:b.
+            result digitBytes bitSetAt:b.
         ].
         rem := rem mul2.               
         b := b - 1.
@@ -2389,5 +2389,5 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.111 1999-09-24 11:03:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.112 1999-10-03 08:50:24 cg Exp $'
 ! !