--- a/Behavior.st	Fri Apr 27 10:25:05 2007 +0200
+++ b/Behavior.st	Fri Apr 27 10:25:27 2007 +0200
@@ -3985,7 +3985,7 @@
         use #canUnderstand: on the class or #respondsTo: on the instance
         to do this."
 
-    ^ self methodDictionary includesKey:aSelector
+    ^ self methodDictionary includesIdenticalKey:aSelector
 
     "
      Object includesSelector:#==
@@ -4388,5 +4388,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.269 2007-04-05 12:53:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.270 2007-04-27 08:25:27 ca Exp $'
 ! !