Index: svn/Helper.cls.xml
===================================================================
diff -u -r1716 -r1717
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1716)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1717)
@@ -205,7 +205,7 @@
 	Set $ZTRAP = ""
 	#dim Exception As TECH.IException = ##class(TECH.ExceptionHandler).Catch()
 	#dim From As %String =  $$$SystemMail(..GeefServerNaam()_" - Subversion")
-	#dim MailTo As %Stringb = $listbuild($$$SVNGlobal("SourceControl","SVN","MailWhenFailed"))
+	#dim MailTo As %String = $listbuild($get($$$SVNGlobal("SourceControl","SVN","MailWhenFailed")))
 	#dim Onderwerp As %String = "Subversion GetLatest() failed on ["_..GeefServerNaam()_" => "_..GeefNamespace()_"]"
 	
 	Do ##class(vhLib.Logger).%New().ErrorMail(Onderwerp,Exception.ToString())
@@ -236,10 +236,10 @@
 <FormalSpec>Actie:%String</FormalSpec>
 <Implementation><![CDATA[
 	If ..Failed.Count() > 0 {
-		#dim MailTo As TECH.String = $$$SVNGlobal("SourceControl","SVN","MailWhenFailed")
-		If MailTo '= "" {
-			Set FeedbackStream = ..GeefFailedCharacterStream(Actie)		
-			Set From =  $$$SystemMail(..GeefServerNaam()_" - Subversion")
+		#dim MailTo As TECH.String = $get($$$SVNGlobal("SourceControl","SVN","MailWhenFailed"))
+		If $$$HasLength(MailTo) {
+			#dim FeedbackStream As %GlobalCharacterStream = ..GeefFailedCharacterStream(Actie)		
+			#dim From As %String =  $$$SystemMail(..GeefServerNaam()_" - Subversion")
 			Do SendMiniMailForced^vhLib.Mail(From,$ListBuild(MailTo),"Subversion failed on ["_..GeefServerNaam()_" => "_..GeefNamespace()_"]",FeedbackStream,1)
 		}
 	}