--- a/ClassDescription.st	Fri Jun 19 00:57:23 1998 +0200
+++ b/ClassDescription.st	Fri Jun 19 01:00:31 1998 +0200
@@ -2301,6 +2301,16 @@
     "Created: 1.4.1997 / 15:57:18 / stefan"
 !
 
+whichCategoryIncludesSelector:aSelector
+    "return the category under which the method for aSelector is
+     classified"
+
+    ^ (self compiledMethodAt:aSelector) category
+
+    "Created: / 19.6.1998 / 00:25:48 / cg"
+    "Modified: / 19.6.1998 / 01:00:07 / cg"
+!
+
 whichClassDefinesInstVar:aVariableName
     "return the class which defines the instance variable
      named aVariableName. This method should not be used for
@@ -3012,6 +3022,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.72 1998-06-18 13:52:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.73 1998-06-18 23:00:31 cg Exp $'
 ! !
 ClassDescription initialize!