--- a/MCTraitDefinition.st	Tue Apr 02 21:24:34 2013 +0200
+++ b/MCTraitDefinition.st	Tue Apr 02 21:24:41 2013 +0200
@@ -53,6 +53,7 @@
 
 asChange
     ^TraitDefinitionChange new
+        mcDefinition: self;
         baseTrait: superclassName;
         traitComposition: traitComposition;
         className: name;
@@ -138,11 +139,11 @@
 !MCTraitDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTraitDefinition.st,v 1.5 2013-04-02 18:48:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTraitDefinition.st,v 1.6 2013-04-02 19:24:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTraitDefinition.st,v 1.5 2013-04-02 18:48:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTraitDefinition.st,v 1.6 2013-04-02 19:24:41 cg Exp $'
 !
 
 version_SVN