--- a/MCTraitDefinition.st	Sat Mar 30 23:27:12 2013 +0100
+++ b/MCTraitDefinition.st	Tue Apr 02 20:48:49 2013 +0200
@@ -49,6 +49,17 @@
         ^traitNames asArray
 ! !
 
+!MCTraitDefinition methodsFor:'converting'!
+
+asChange
+    ^TraitDefinitionChange new
+        baseTrait: superclassName;
+        traitComposition: traitComposition;
+        className: name;
+        category: category;
+        yourself
+! !
+
 !MCTraitDefinition methodsFor:'initializing'!
 
 initializeWithName: classNameString 
@@ -127,11 +138,11 @@
 !MCTraitDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTraitDefinition.st,v 1.4 2013-01-18 13:02:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTraitDefinition.st,v 1.5 2013-04-02 18:48:49 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTraitDefinition.st,v 1.4 2013-01-18 13:02:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTraitDefinition.st,v 1.5 2013-04-02 18:48:49 cg Exp $'
 !
 
 version_SVN