--- a/MCStXSnapshotPreWriteTransformation.st	Fri May 31 12:39:06 2013 +0200
+++ b/MCStXSnapshotPreWriteTransformation.st	Fri May 31 12:39:30 2013 +0200
@@ -37,7 +37,7 @@
 !
 
 projectDefinition
-    transformed definitions reverseDo:[:d|
+    original definitions reverseDo:[:d|
         | c |    
         (d isClassDefinition 
             and:[(c := d actualClass) notNil
@@ -47,6 +47,7 @@
     ^nil
 
     "Created: / 31-05-2013 / 00:23:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-05-2013 / 10:45:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MCStXSnapshotPreWriteTransformation methodsFor:'accessing - templates'!
@@ -132,8 +133,10 @@
     class := definition actualClass.
     class isProjectDefinition ifTrue:[
         definition
+"/            className:(definition className capitalized);
             superclassName: 'Object';
             category: class monticelloName.
+
         transformed definitions addFirst:
             (MCMethodDefinition
                 className: definition className
@@ -146,7 +149,7 @@
     ]
 
     "Created: / 29-05-2013 / 12:19:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 31-05-2013 / 00:56:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-05-2013 / 10:48:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 visitMethodDefinition: definition
@@ -166,10 +169,10 @@
 !MCStXSnapshotPreWriteTransformation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.4 2013-05-31 00:16:31 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.5 2013-05-31 10:39:30 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.4 2013-05-31 00:16:31 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCStXSnapshotPreWriteTransformation.st,v 1.5 2013-05-31 10:39:30 vrany Exp $'
 ! !