--- a/LargeInteger.st	Thu Mar 10 08:13:13 2016 +0000
+++ b/LargeInteger.st	Fri Mar 11 10:06:30 2016 +0000
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
@@ -1635,9 +1633,9 @@
 !
 
 digitLength
-    "return the number bytes used by this Integer.
-     For negative receivers, the digitLength of its absolute value
-     is returned."
+    "return the number of bytes needed for the unsigned binary representation of the receiver.
+     For negative receivers, the result is not defined by the language standard.
+     ST/X returns the digitLength of its absolute value."
 
     "
      check if there is a 0-byte ...
@@ -1653,7 +1651,7 @@
 %}.
     l := digitByteArray size.
     [l ~~ 0 and:[(digitByteArray at:l) == 0]] whileTrue:[
-	l := l - 1.
+        l := l - 1.
     ].
     ^ l
 
@@ -5692,3 +5690,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+