--- a/Object.st	Sat May 16 18:58:23 1998 +0200
+++ b/Object.st	Sat May 16 19:40:37 1998 +0200
@@ -3047,6 +3047,20 @@
     "Modified: 8.5.1996 / 09:13:37 / cg"
 !
 
+indexNotInteger:anIndex
+    "{ Pragma: +optSpace }"
+
+    "report an error that index is not an Integer.
+     (when accessing collections indexed by an integer key).
+     The error is reported by raising the NonIntegerIndexSignal exception."
+
+    ^ NonIntegerIndexSignal 
+        raiseRequestWith:anIndex 
+        in:thisContext sender
+
+    "Created: / 16.5.1998 / 19:39:41 / cg"
+!
+
 integerCheckError
     "{ Pragma: +optSpace }"
 
@@ -6949,6 +6963,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.236 1998-05-08 19:33:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.237 1998-05-16 17:40:37 cg Exp $'
 ! !
 Object initialize!