--- a/extensions.st	Sat Nov 08 13:31:49 2014 +0100
+++ b/extensions.st	Sat Nov 08 14:42:12 2014 +0100
@@ -533,6 +533,26 @@
     "Created: / 06-10-2014 / 08:37:54 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
+!RefactoryChange methodsFor:'accessing'!
+
+model
+    "Returns reference to RBNamespace for retrieving model classes (RBClass, RBMetaclass)"
+
+    ^ self objectAttributeAt: #model
+
+    "Created: / 08-11-2014 / 14:00:17 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+! !
+
+!RefactoryChange methodsFor:'accessing'!
+
+model: aModel
+    "see model"
+
+    self objectAttributeAt: #model put: aModel
+
+    "Created: / 08-11-2014 / 14:00:33 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+! !
+
 !Tools::NewSystemBrowser methodsFor:'menus extensions-custom refactorings'!
 
 classMenuExtensionCustomGenerators:aMenu