Index: Tools/impl/MoveHelper.cls.xml
===================================================================
diff -u -r1503 -r1595
--- Tools/impl/MoveHelper.cls.xml	(.../MoveHelper.cls.xml)	(revision 1503)
+++ Tools/impl/MoveHelper.cls.xml	(.../MoveHelper.cls.xml)	(revision 1595)
@@ -241,6 +241,7 @@
 	Do ..svnHelper.SVNMove(InternalNameFrom,InternalNameTo)
 	Do ..ExportToSVN(SourceCodeTo)
 	do $system.OBJ.Delete(InternalNameFrom)
+	Do ##class(svn.Event.SourceCodeDeleted).Raise(InternalNameFrom)
 	do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(InternalNameFrom))	
 	Quit
 ]]></Implementation>
@@ -461,10 +462,15 @@
 	While (ClassesIterator.HasNext()) {
 		#dim Class As TECH.ClassInfo.ClassDefinition = ClassesIterator.Next()
 		If ('##class(TECH.ListUtils).Contains(..TeVerplaatsenKlassen, ##class(%Dictionary.ClassDefinition).%OpenId(Class.GeefNaam()))) {
-			w $J(" ",4)_"- Opslaan "_Class.GeefNaam(),!
+			#dim KlasseNaam As TECH.String = Class.GeefNaam()
+			w $J(" ",4)_"- Opslaan "_KlasseNaam,!
 			#dim Status As %Status = Class.Save()
-			If ($$$ISERR(Status)) w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),!
-			Else  Do ..ExportToSVN(Class.GeefNaam())
+			If ($$$ISERR(Status)) {
+				w $J(" ",6)_"Fout: "_$$ParseStatus^vhLib(Status),!
+			} Else {
+				Do ..ExportToSVN(KlasseNaam)
+				Do ##class(svn.Event.SourceCodeSaved).Raise(KlasseNaam)
+			}
 		}
 	}
 ]]></Implementation>