Index: Tools/impl/MoveHelper.cls.xml
===================================================================
diff -u -r1059 -r1062
--- Tools/impl/MoveHelper.cls.xml	(.../MoveHelper.cls.xml)	(revision 1059)
+++ Tools/impl/MoveHelper.cls.xml	(.../MoveHelper.cls.xml)	(revision 1062)
@@ -356,7 +356,8 @@
 <Method name="ToonBerichten">
 <Private>1</Private>
 <Implementation><![CDATA[
-	w "Volgende items zullen hernoemd worden:",!!
+	w "Klasse wordt hernoemd naar : " , ..RenameFrom,!
+	w "Volgende items zullen hernoemd worden:",!
 	#dim SourceCode = $Order(..Berichten(""))
 	while (SourceCode '= "") {
 		If (..Berichten(SourceCode).Count() > 0) {