Index: svn/Setting.cls.xml
===================================================================
diff -u -r1745 -r1746
--- svn/Setting.cls.xml	(.../Setting.cls.xml)	(revision 1745)
+++ svn/Setting.cls.xml	(.../Setting.cls.xml)	(revision 1746)
@@ -68,10 +68,8 @@
 	if $length(TestManager) { 
 		set IsBezig = $$IsBezig(TestManager)
 	} else {
-		set TestManager = $O($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",""))
-		While TestManager '= "" {
+		for  { quit:IsBezig  set TestManager = $order($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",TestManager)) quit:TestManager=""  
 			set IsBezig = $$IsBezig(TestManager)
-			Set TestManager = $O($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",TestManager))
 		}
 	}
 	quit IsBezig