diff --git a/src/MethodProxies/MpMethodProxy.class.st b/src/MethodProxies/MpMethodProxy.class.st
index f3ad18f..7d14c48 100644
--- a/src/MethodProxies/MpMethodProxy.class.st
+++ b/src/MethodProxies/MpMethodProxy.class.st
@@ -26,7 +26,7 @@ This package is developed and maintained by S. Ducasse, G. Polito and P. Tesone,
 "
 Class {
 	#name : #MpMethodProxy,
-	#superclass : #Object,
+	#superclass : #ProtoObject,
 	#instVars : [
 		'selector',
 		'methodClass',
@@ -60,6 +60,15 @@ MpMethodProxy class >> uninstallAllWrappers [
 	self allSubInstancesDo: [ :inst | inst uninstall ]
 ]
 
+{ #category : #comparing }
+MpMethodProxy >> = anObject [
+	"Answer whether the receiver and the argument represent the same
+	object. If = is redefined in any subclass, consider also redefining the
+	message hash."
+
+	^ self == anObject
+]
+
 { #category : #initialization }
 MpMethodProxy >> class: aClass selector: aSymbol [