--- a/ClassRenameChange.st	Tue Jul 31 15:00:47 2012 +0100
+++ b/ClassRenameChange.st	Tue Jul 31 18:55:15 2012 +0100
@@ -60,6 +60,28 @@
     "Created: / 16.2.1998 / 14:22:38 / cg"
 ! !
 
+!ClassRenameChange methodsFor:'applying'!
+
+apply
+    "apply the change"
+
+    |class|
+
+    "JV@2012-07-31: Here, must test agains __OLD__ class"
+
+    class := Smalltalk at: oldName asSymbol.
+    class isNil ifTrue:[
+        self error:('Cannot apply change for missing class: ' , className) mayProceed:true.
+        ^ self
+    ].
+    class autoload.         "Most changes cannot be applied to unloaded classes"
+    Class nameSpaceQuerySignal answer:self nameSpace do:[
+        Parser evaluate:(self source)
+    ].
+
+    "Created: / 31-07-2012 / 18:58:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ClassRenameChange methodsFor:'printing'!
 
 printOn:aStream
@@ -80,9 +102,9 @@
 !ClassRenameChange class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ClassRenameChange.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+    ^ '$Id: ClassRenameChange.st 1947 2012-07-31 17:55:15Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: ClassRenameChange.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+    ^ '$Id: ClassRenameChange.st 1947 2012-07-31 17:55:15Z vranyj1 $'
 ! !