--- a/LargeInteger.st	Thu Apr 25 10:49:32 2013 +0100
+++ b/LargeInteger.st	Thu Apr 25 11:30:13 2013 +0100
@@ -290,6 +290,8 @@
     "Modified: / 8.5.1998 / 21:40:41 / cg"
 ! !
 
+
+
 !LargeInteger class methodsFor:'queries'!
 
 isBuiltInClass
@@ -1264,29 +1266,29 @@
 setBit:index
     "return a new integer, where the specified bit is on.
      Bits are counted from 1 starting with the least significant.
-     The methods name may be missleading: the receiver is not changed,
+     The methods name may be misleading: the receiver is not changed,
      but a new number is returned. Should be named #withBitSet:"
 
     |myDigitLength newDigitLength newDigitBytes byteIndexOfBitToSet|
 
     index <= 0 ifTrue:[
-	^ SubscriptOutOfBoundsSignal
-		raiseRequestWith:index
-		errorString:'index out of bounds'
+        ^ SubscriptOutOfBoundsSignal
+                raiseRequestWith:index
+                errorString:'index out of bounds'
     ].
 
     myDigitLength := digitByteArray size.
     byteIndexOfBitToSet := ((index-1)//8)+1.
     byteIndexOfBitToSet > myDigitLength ifTrue:[
-	newDigitLength := myDigitLength max:byteIndexOfBitToSet.
-	newDigitBytes := ByteArray new:newDigitLength.
-	newDigitBytes replaceFrom:1 to:myDigitLength with:digitByteArray startingAt:1.
+        newDigitLength := myDigitLength max:byteIndexOfBitToSet.
+        newDigitBytes := ByteArray new:newDigitLength.
+        newDigitBytes replaceFrom:1 to:myDigitLength with:digitByteArray startingAt:1.
     ] ifFalse:[
-	newDigitBytes := digitByteArray copy
+        newDigitBytes := digitByteArray copy
     ].
     newDigitBytes
-	at:byteIndexOfBitToSet
-	put:((newDigitBytes at:byteIndexOfBitToSet) setBit:(((index-1)\\8)+1)).
+        at:byteIndexOfBitToSet
+        put:((newDigitBytes at:byteIndexOfBitToSet) setBit:(((index-1)\\8)+1)).
     ^ (self class digitBytes:newDigitBytes) sign:sign
 
     "
@@ -5170,9 +5172,10 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.205 2013-02-08 12:57:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.206 2013-04-25 07:12:35 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.205 2013-02-08 12:57:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.206 2013-04-25 07:12:35 stefan Exp $'
 ! !
+