--- a/extensions.st	Sun Nov 02 22:01:00 2014 +0100
+++ b/extensions.st	Tue Nov 04 01:29:31 2014 +0100
@@ -301,13 +301,17 @@
     change := model defineClass: self definitionString.
     change package: self package.
 
-    newClass := model classNamed: self name.
-    newClass package: self package.
+    (model respondsTo: #putModelClass:) ifTrue: [
+        model putModelClass: self  
+    ] ifFalse: [ 
+        newClass := model classNamed: self name.
+        newClass package: self package
+    ].
 
     ^ change
 
     "Created: / 25-09-2014 / 22:31:44 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
-    "Modified: / 10-10-2014 / 15:40:11 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
+    "Modified: / 04-11-2014 / 00:06:49 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
 !RBClass methodsFor:'accessing'!