--- a/RegressionTests__IntegerTest.st	Tue Oct 26 22:57:36 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Tue Oct 26 23:53:26 1999 +0200
@@ -718,6 +718,14 @@
     self test:[(n1 perform:'bitShift:' asSymbol with:s) printString = '6250'].
     self test:[(n1 perform:'bitShift:' asSymbol with:-11) printString = '6250'].
 
+
+    1 to:10000 do:[:s |
+        self test:[ (1 bitShift:s) highBit == (s+1) ]
+    ].
+    1 to:10000 do:[:s |
+        self test:[ ((1 bitShift:s) - 1) highBit == s ]
+    ].
+
     "
      self testIntegerShifts
     "