--- a/MethodDictionary.st	Mon Jul 28 20:56:30 1997 +0200
+++ b/MethodDictionary.st	Wed Jul 30 11:02:05 1997 +0200
@@ -485,6 +485,22 @@
 
 !MethodDictionary methodsFor:'queries'!
 
+includesKey:key
+    "return true, if there is an entry stored under key
+     (i.e. there is a method for that selector)"
+
+    |sz "{ Class: SmallInteger }"|
+
+    sz := self basicSize.
+    1 to:sz by:2 do:[:i |
+        (self basicAt:i) == key ifTrue:[^ true].
+    ].
+
+    ^ false
+
+    "Created: 30.7.1997 / 11:01:37 / cg"
+!
+
 keys
     "return a collection containing all keys of the receiver"
 
@@ -536,5 +552,5 @@
 !MethodDictionary class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodDictionary.st,v 1.18 1997-02-15 16:01:48 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MethodDictionary.st,v 1.19 1997-07-30 09:02:05 cg Exp $'
 ! !