--- a/RegressionTests__IntegerTest.st	Fri May 14 18:09:16 1999 +0200
+++ b/RegressionTests__IntegerTest.st	Sat May 15 00:22:24 1999 +0200
@@ -45,6 +45,11 @@
     self test:[minVal == SmallInteger minVal].
     self test:[maxVal == SmallInteger maxVal].
 
+    t := SmallInteger perform:('maxBytes' asSymbol).
+    self test:[t == SmallInteger maxBytes].
+    t := SmallInteger perform:('maxBits' asSymbol).
+    self test:[t == SmallInteger maxBits].
+
     self testPrinting1.
 
     SmallInteger maxBytes == 4 ifTrue:[