--- a/RGBehaviorDefinition.st	Sat Aug 29 10:31:59 2015 +0100
+++ b/RGBehaviorDefinition.st	Mon Aug 31 14:01:56 2015 +0100
@@ -117,11 +117,23 @@
     self subclassResponsibility
 !
 
+theMetaclass
+    ^ self theMetaClass
+
+    "Created: / 29-08-2015 / 11:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 theNonMetaClass
 
     self subclassResponsibility
 !
 
+theNonMetaclass
+    ^ self theNonMetaClass
+
+    "Created: / 29-08-2015 / 11:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 traitNames
     "Assuming that traits in a composition can be identified by
     testing for the first character being an uppercase character
@@ -198,6 +210,12 @@
     ^ methods
 !
 
+methodDictionary
+    ^ methods
+
+    "Created: / 29-08-2015 / 18:07:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 withAllSubclasses
     "if allSubclasses is stored should not affect the collection"