--- a/Behavior.st	Fri Mar 08 15:36:58 2002 +0100
+++ b/Behavior.st	Mon Mar 11 11:08:00 2002 +0100
@@ -3931,6 +3931,25 @@
     "Modified: 7.11.1996 / 13:49:28 / cg"
 !
 
+responseTo:aSelector
+    "return the method (from here or the inheritance chain), 
+     which implements aSelector; return nil if none."
+
+    |cls|
+
+    cls := self whichClassIncludesSelector:aSelector.
+    cls notNil ifTrue:[
+        ^ cls compiledMethodAt:aSelector
+    ].
+    ^ nil
+
+    "
+     String responseTo:#==      
+     String responseTo:#collect:   
+     String responseTo:#,   
+    "
+!
+
 selectorAtMethod:aMethod
     "Return the selector for given method aMethod."
 
@@ -4347,5 +4366,5 @@
 !Behavior class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.203 2002-02-25 20:05:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.204 2002-03-11 10:08:00 cg Exp $'
 ! !