--- a/KeyedCollection.st	Wed Apr 25 13:15:01 2007 +0200
+++ b/KeyedCollection.st	Fri Apr 27 10:25:05 2007 +0200
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libbasic' }"
 
 Collection subclass:#KeyedCollection
@@ -200,6 +198,15 @@
 
 !KeyedCollection methodsFor:'testing'!
 
+includesIdenticalKey:aKey
+    "return true, if the argument, aKey is a key in the receiver"
+
+    self keysDo:[:elKey | aKey == elKey ifTrue:[^ true]].
+    ^ false
+
+    "Created: / 19.6.1998 / 00:55:05 / cg"
+!
+
 includesKey:aKey
     "return true, if the argument, aKey is a key in the receiver"
 
@@ -212,5 +219,5 @@
 !KeyedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.4 2006-08-08 14:17:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.5 2007-04-27 08:25:05 ca Exp $'
 ! !