--- a/RegressionTests__IntegerTest.st	Sat Nov 27 18:30:11 1999 +0100
+++ b/RegressionTests__IntegerTest.st	Fri Jan 07 15:38:18 2000 +0100
@@ -437,6 +437,10 @@
     aBlock value == true ifFalse:[
         self halt:'test failed'
     ]
+!
+
+testIsInteger:arg
+    ^ arg isInteger
 ! !
 
 !IntegerTest class methodsFor:'tests'!
@@ -519,6 +523,7 @@
     t := minVal - 1.
     self test:[t + 1 == minVal].
 
+    self testILC.
     self testSmallIntegerArithmetic.
     self testLiteralNumbers.
     self testLargeAddition.
@@ -596,6 +601,27 @@
     "Modified: / 26.10.1999 / 22:01:35 / stefan"
 !
 
+testILC
+    "inline-cache"
+
+    self test:[(self testIsInteger:1) == true].
+    self test:[(self testIsInteger:nil) == false].
+    self test:[(self testIsInteger:1) == true].
+    self test:[(self testIsInteger:nil) == false].
+
+    self test:[(self testIsInteger:0) == true].
+    self test:[(self testIsInteger:nil) == false].
+    self test:[(self testIsInteger:0) == true].
+    self test:[(self testIsInteger:nil) == false].
+
+    "
+     self testILC
+    "
+
+    "Created: / 6.6.1999 / 14:47:51 / cg"
+    "Modified: / 9.6.1999 / 17:49:57 / cg"
+!
+
 testIntegerMisc
     "misc tests.
      Notice, the arithmetic tests are both performed via regular sends