+ (mewa:make-presentation finstance :type (creator self)))))
+
+ ;;;; TODO: this next bit is due to a bad design decision.
+ ;;;; Components should always have (ok) return self, but somewhere
+ ;;;; i've made in return (instance self) sometimes, and this
+ ;;;; bahaviour is totatlly fucked.
+
+ (when (typep new-instance 'mewa::mewa)
+ (setf new-instance (instance new-instance)))
+
+ ;;;; sorry about that, and now back t our regular program.
+
+ (meta-model:sync-instance new-instance)