--- a/ProtoObject.st	Tue Dec 06 12:45:11 2016 +0100
+++ b/ProtoObject.st	Tue Dec 06 12:46:07 2016 +0100
@@ -159,6 +159,24 @@
         valueWithReceiver:self
         arguments:{index}
         selector:#instVarAt:
+!
+
+referencesAny:anObject
+    "this method is required to allow inspection of the object"
+
+    ^ (Object compiledMethodAt:#referencesAny:)
+        valueWithReceiver:self
+        arguments:{anObject}
+        selector:#referencesAny
+!
+
+referencesObject:anObject
+    "this method is required to allow inspection of the object"
+
+    ^ (Object compiledMethodAt:#referencesObject:)
+        valueWithReceiver:self
+        arguments:{anObject}
+        selector:#referencesObject
 ! !
 
 !ProtoObject methodsFor:'queries'!