Merge pull request #19637 from AlexisCnockaert/callsite-methodgroup

Fix call site command for 'Show Group in browser'

Author: jecisc

src/Calypso-SystemTools-QueryBrowser/ClyShowGroupsInMethodBrowserCommand.class.st

@@ -47,11 +47,7 @@ ClyShowGroupsInMethodBrowserCommand >> defaultMenuItemName [
 { #category : 'execution' }
 ClyShowGroupsInMethodBrowserCommand >> execute [
 
-	| queries fullQuery |
-	queries := methodGroups collect: [:each | each methodQuery].
-	fullQuery := ClyQuery unionFrom: queries.
-
-	browser spawnQueryBrowserOn: fullQuery
+	(Smalltalk tools toolNamed: #messageList) browse: methodGroups first methods 
 ]
 
 { #category : 'execution' }