--- a/Method.st	Mon Apr 20 13:57:16 2020 +0200
+++ b/Method.st	Tue Apr 21 13:26:19 2020 +0200
@@ -4035,6 +4035,16 @@
     "Modified: 2.1.1997 / 14:59:24 / cg"
 ! !
 
+!Method::MethodWhoInfo methodsFor:'comparing'!
+
+= something
+    ^ something class == self class
+    and:[something methodClass name = self methodClass name
+    and:[something methodSelector = self methodSelector ]]
+
+    "Created: / 21-04-2020 / 13:23:07 / cg"
+! !
+
 !Method::MethodWhoInfo methodsFor:'compatibility'!
 
 at:index