Index: svn/Helper.cls.xml
===================================================================
diff -u -r1588 -r1590
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1588)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1590)
@@ -72,12 +72,6 @@
 <Type>%Boolean</Type>
 </Property>
 
-<Property name="MagUnitTestUitvoeren">
-<Type>%Boolean</Type>
-<Calculated>1</Calculated>
-<Private>1</Private>
-</Property>
-
 <Method name="ImportDirectory">
 <Description>
 IgnorePattern ; delimeted string</Description>
@@ -192,7 +186,7 @@
 <Method name="VoerUitUnitTesten">
 <Private>1</Private>
 <Implementation><![CDATA[
-	If (..MagUnitTestUitvoeren && ('..IsGetLatestGefaald)) {
+	If (##class(svn.Setting).MagUnitTestUitvoeren() && ('..IsGetLatestGefaald)) {
 		do ##class(svn.Setting).ZetIsUnitTestBezig(1)
 		Do ##class(vhUnitTest.Manager).RunTest("/MailOnError=1")
 		do ##class(svn.Setting).ZetIsUnitTestBezig(0)
@@ -564,15 +558,17 @@
 		set rsRepos = ##class(%ResultSet).%New("svn.Repository:Extent")
 		do rsRepos.Execute()
 		while rsRepos.Next() {
-			set Repo = ..OpenRepository(rsRepos.Get("ID"))
+			#dim Repo As svn.Repository = ..OpenRepository(rsRepos.Get("ID"))
 			do Repo.CheckOut()
+			if Repo.IsCodeVeranderd set ..IsCodeVeranderd = 1
 			do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.Failed,..Failed)
 			do ##class(TECH.ListUtils).CopyListOfDataTypes(Repo.ToCompile,..ToCompile.List)
+			
  		}
 	}
 		
 	if ..Failed.Count() = 0 { 
-		set Message = "Getting Latest done"
+		#dim Message As %String = "Getting Latest done"
 		} else {
 			Do ..ShowFailed("GetLatest")
 				set ..IsGetLatestGefaald = 1