--- a/SmallSense__MethodPO.st	Thu Jun 19 15:19:22 2014 +0100
+++ b/SmallSense__MethodPO.st	Fri Jun 20 13:56:46 2014 +0100
@@ -104,6 +104,22 @@
     "Modified: / 20-05-2014 / 10:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!MethodPO methodsFor:'accessing-private'!
+
+subject
+    "Return the real object for which the receiver
+     is a presentor.
+     
+     For internal usage only."
+
+    classes size ~~ 1 ifTrue:[ 
+        self error: 'Multiple classes'
+    ].
+    ^ classes anElement compiledMethodAt: selector
+
+    "Created: / 20-06-2014 / 11:11:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !MethodPO methodsFor:'initialization'!
 
 initializeWithClass: aClass selector: aSymbol