--- a/LargeInteger.st	Fri Jun 03 18:15:16 2011 +0100
+++ b/LargeInteger.st	Wed Jun 08 22:53:07 2011 +0100
@@ -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,15 +5141,15 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Id: LargeInteger.st 10632 2011-04-09 17:19:04Z vranyj1 $'
+    ^ '$Id: LargeInteger.st 10643 2011-06-08 21:53:07Z vranyj1 $'
 !
 
 version_CVS
-    ^ 'Header: /var/local/cvs/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_SVN
-    ^ '$Id: LargeInteger.st 10632 2011-04-09 17:19:04Z vranyj1 $'
+    ^ '$Id: LargeInteger.st 10643 2011-06-08 21:53:07Z vranyj1 $'
 ! !
 
 
@@ -5159,3 +5159,4 @@
 
 
 
+