--- a/MCClassTraitDefinition.st	Tue Apr 02 20:48:49 2013 +0200
+++ b/MCClassTraitDefinition.st	Tue Apr 02 21:24:34 2013 +0200
@@ -87,11 +87,11 @@
 !MCClassTraitDefinition methodsFor:'converting'!
 
 asChange
-    ^TraitDefinitionChange new
+    ^TraitClassTraitDefinitionChange new
         mcDefinition: self;
         baseTrait: baseTrait;
         traitComposition: classTraitComposition;
-        category: category;
+        "/ category: category;
         yourself
 ! !
 
@@ -132,11 +132,11 @@
 !MCClassTraitDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassTraitDefinition.st,v 1.5 2013-01-18 17:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassTraitDefinition.st,v 1.6 2013-04-02 19:24:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassTraitDefinition.st,v 1.5 2013-01-18 17:45:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassTraitDefinition.st,v 1.6 2013-04-02 19:24:34 cg Exp $'
 !
 
 version_SVN