--- a/LargeInteger.st	Sat May 14 10:10:16 2011 +0200
+++ b/LargeInteger.st	Tue May 17 15:18:34 2011 +0200
@@ -1085,11 +1085,11 @@
     anInteger class ~~ LargeInteger ifTrue:[^ super bitXor:anInteger].
 
     (len1 := anInteger digitLength) > (len2 := self digitLength) ifTrue:[
-	newBytes := anInteger digits copy.
-	newBytes bitXorBytesFrom:1 to:len2 with:digitByteArray startingAt:1
+        newBytes := anInteger digitBytes copy.
+        newBytes bitXorBytesFrom:1 to:len2 with:digitByteArray startingAt:1
     ] ifFalse:[
-	newBytes := digitByteArray copy.
-	newBytes bitXorBytesFrom:1 to:len1 with:anInteger digits startingAt:1
+        newBytes := digitByteArray copy.
+        newBytes bitXorBytesFrom:1 to:len1 with:anInteger digits startingAt:1
     ].
     ^ (LargeInteger digitBytes:newBytes) compressed
 
@@ -1104,9 +1104,9 @@
      bigNum1 := 2 raisedToInteger:512.
      bigNum2 := 2 raisedToInteger:510.
      Time millisecondsToRun:[
-	1000000 timesRepeat:[
-	   bigNum1 bitXor:bigNum2.
-	]
+        1000000 timesRepeat:[
+           bigNum1 bitXor:bigNum2.
+        ]
      ]
     "
 !
@@ -5141,9 +5141,9 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.202 2010-08-10 10:34:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.203 2011-05-17 13:18:34 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.202 2010-08-10 10:34:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.203 2011-05-17 13:18:34 stefan Exp $'
 ! !