--- a/SmallInteger.st	Thu Jan 21 11:03:57 2016 +0100
+++ b/SmallInteger.st	Thu Jan 21 11:17:04 2016 +0100
@@ -988,6 +988,7 @@
 bitClear:anInteger
     "return the bitwise-and of the receiver and the complement of the argument, anInteger,
      returning the receiver with bits of the argument cleared.
+     (i.e. the same as self bitAnd:aMaskInteger bitInvert).
      The method's name may be misleading: the receiver is not changed,
      but a new number is returned. Should be named #withBitCleared:"
 
@@ -997,7 +998,7 @@
 #else
     /* anding the tags doesn't change it */
     if (__isSmallInteger(anInteger)) {
-	RETURN ( ((OBJ) (((INT)self & ~(INT)anInteger) | TAG_INT)) );
+        RETURN ( ((OBJ) (((INT)self & ~(INT)anInteger) | TAG_INT)) );
     }
 #endif /* not __SCHTEAM__ */
 %}.
@@ -1006,6 +1007,8 @@
     "
      (2r001010100 bitClear:2r00001111) radixPrintStringRadix:2
      (2r111111111 bitClear:2r00001000) radixPrintStringRadix:2
+
+     (2r001010100 bitAnd:2r00001111 bitInvert) radixPrintStringRadix:2
     "
 !