--- a/LargeInteger.st	Thu Jan 10 11:22:23 2002 +0100
+++ b/LargeInteger.st	Mon Jan 14 11:47:02 2002 +0100
@@ -1011,12 +1011,13 @@
      for negative ones, the actual bit representation is returned."
 
     |t digits|
-    sign < 0 ifFalse:[
+    sign >= 0 ifTrue:[
         index > digitByteArray size ifTrue:[
             ^ 0
         ].
         ^ digitByteArray at:index.
     ].
+
     "/ negative int - do 2's complement here
 
     t := self bitInvert + 1.
@@ -4397,5 +4398,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.162 2001-10-25 15:24:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.163 2002-01-14 10:47:02 cg Exp $'
 ! !