--- a/Integer.st	Thu Mar 28 11:50:28 2002 +0100
+++ b/Integer.st	Thu Mar 28 12:02:25 2002 +0100
@@ -1122,13 +1122,14 @@
 
 highBit
     "return the bitIndex of the highest bit set. The returned bitIndex
-     starts at 1 for the least significant bit. Returns -1 if no bit is set."
+     starts at 1 for the least significant bit. 
+     Returns 0 if no bit is set."
 
     |byteNr highByte|
 
     byteNr := self digitLength.
     byteNr == 0 ifTrue:[
-        ^ -1
+        ^ 0
     ].
     highByte := self digitAt:byteNr.
     ^ (byteNr - 1) * 8 + highByte highBit
@@ -2761,6 +2762,6 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.143 2002-03-28 10:50:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.144 2002-03-28 11:02:13 cg Exp $'
 ! !
 Integer initialize!