--- a/NewSystemBrowser.st	Wed Feb 20 21:48:11 2002 +0100
+++ b/NewSystemBrowser.st	Thu Feb 21 11:02:11 2002 +0100
@@ -22567,7 +22567,7 @@
     "move selected methods to some other category"
 
     |mthd superClass inherited someCategories newCategory selClasses 
-     initialAnswer methodSelection|
+     initialAnswer methodSelection selectors|
 
     methodSelection := self selectedMethods value copy.
 
@@ -22586,6 +22586,14 @@
             ]
         ]
     ].
+
+    "/ add actual categories of selected methods
+    selectors := methodSelection collect:[:each | each selector].
+    (SystemBrowser findImplementorsOfAny:selectors in:(Smalltalk allClasses) ignoreCase:false)
+    do:[:otherMethod |
+        someCategories add:otherMethod category.
+    ].
+
     someCategories := someCategories asOrderedCollection sort.
 
     (mthd := self theSingleSelectedMethod) notNil ifTrue:[
@@ -51628,6 +51636,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.311 2002-02-15 13:13:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.312 2002-02-21 10:02:11 cg Exp $'
 ! !
 NewSystemBrowser initialize!

--- a/Tools__NewSystemBrowser.st	Wed Feb 20 21:48:11 2002 +0100
+++ b/Tools__NewSystemBrowser.st	Thu Feb 21 11:02:11 2002 +0100
@@ -22567,7 +22567,7 @@
     "move selected methods to some other category"
 
     |mthd superClass inherited someCategories newCategory selClasses 
-     initialAnswer methodSelection|
+     initialAnswer methodSelection selectors|
 
     methodSelection := self selectedMethods value copy.
 
@@ -22586,6 +22586,14 @@
             ]
         ]
     ].
+
+    "/ add actual categories of selected methods
+    selectors := methodSelection collect:[:each | each selector].
+    (SystemBrowser findImplementorsOfAny:selectors in:(Smalltalk allClasses) ignoreCase:false)
+    do:[:otherMethod |
+        someCategories add:otherMethod category.
+    ].
+
     someCategories := someCategories asOrderedCollection sort.
 
     (mthd := self theSingleSelectedMethod) notNil ifTrue:[
@@ -51628,6 +51636,6 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.311 2002-02-15 13:13:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.312 2002-02-21 10:02:11 cg Exp $'
 ! !
 NewSystemBrowser initialize!