--- a/Integer.st	Fri Jan 12 11:11:29 2001 +0100
+++ b/Integer.st	Tue Jan 16 12:28:56 2001 +0100
@@ -923,7 +923,8 @@
 !
 
 bitTest:anInteger
-    "return true, if the bitwise-and of the receiver and the argument, anInteger
+    "return true, if any bit from aMask is set in the receiver.
+     I.e. true, if the bitwise-AND of the receiver and the argument, anInteger
      is non-0, false otherwise.
      This is a general and slow implementation, walking over the bytes of
      the receiver and the argument."
@@ -2637,6 +2638,6 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.133 2000-08-03 17:48:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.134 2001-01-16 11:28:56 cg Exp $'
 ! !
 Integer initialize!

--- a/SmallInteger.st	Fri Jan 12 11:11:29 2001 +0100
+++ b/SmallInteger.st	Tue Jan 16 12:28:56 2001 +0100
@@ -938,7 +938,9 @@
 !
 
 bitTest:aMask
-    "return true, if any bit from aMask is set in the receiver"
+    "return true, if any bit from aMask is set in the receiver.
+     I.e. true, if the bitwise-AND of the receiver and the argument, anInteger
+     is non-0, false otherwise."
 
 %{  /* NOCONTEXT */
 
@@ -3256,5 +3258,5 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.132 2000-08-03 17:48:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.133 2001-01-16 11:28:52 cg Exp $'
 ! !