Index: Tools/DatabaseControle.cls.xml
===================================================================
diff -u -r21 -r3373
--- Tools/DatabaseControle.cls.xml	(.../DatabaseControle.cls.xml)	(revision 21)
+++ Tools/DatabaseControle.cls.xml	(.../DatabaseControle.cls.xml)	(revision 3373)
@@ -65,7 +65,7 @@
 	
 	if Problemen.Size > 0 {
 		#dim From As %String = $$$SystemMail($$$Server)
-		#dim To As %List = $listbuild("jcl@vanhoecke.be")
+		#dim To As %List = $listbuild("ICT_meldingen@vanhoecke.be")
 		#dim Subject As %String = "Problemen met shadowing naar server "_$$$Server
 		#dim Body As %String = ##class(TECH.ListUtils).ListToPieces(Problemen,$char(13,10))
 		do SendMiniMail^vhLib.Mail(From,To,Subject,Body)