Index: svn/Setting.cls.xml
===================================================================
diff -u -r1700 -r1743
--- svn/Setting.cls.xml	(.../Setting.cls.xml)	(revision 1700)
+++ svn/Setting.cls.xml	(.../Setting.cls.xml)	(revision 1743)
@@ -61,29 +61,49 @@
 
 <Method name="IsUnitTestBezig">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>TestManager:%String=""</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsBezig As %Boolean = 0
-	#dim TestManager As %String = $O($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",""))
-	While TestManager '= "" {
-		#dim JobID As %Integer = +$get($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",TestManager))
-		if JobID > 0 {
-			set IsBezig = ##class(TECH.Process).ExistsId(JobID)
-			Set:($$$Not(IsBezig)) $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",TestManager) = 0
+	if $length(TestManager) { 
+		set IsBezig = $$IsBezig(TestManager)
+	} else {
+		set TestManager = $O($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",""))
+		While TestManager '= "" {
+			set IsBezig = $$IsBezig(TestManager)
+			Set TestManager = $O($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",TestManager))
 		}
-		
-		Set TestManager = $O($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",TestManager))
 	}
 	quit IsBezig
+	
+IsBezig(TestManager)
+	set IsBezig = 0
+	#dim JobID As %Integer = $get($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",TestManager))
+	if JobID > 0 {
+		#dim JobExists As %Boolean = ##class(TECH.Process).ExistsId(JobID)
+		Set:($$$Not(JobExists)) $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",TestManager) = 0
+		set IsBezig = JobExists
+	}
+	quit IsBezig
 ]]></Implementation>
 </Method>
 
+<Method name="GetTestStartTime">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>TestManagerClassName:%String</FormalSpec>
+<ReturnType>TECH.Horolog</ReturnType>
+<Implementation><![CDATA[	quit $get($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess_Started",TestManagerClassName))
+]]></Implementation>
+</Method>
+
 <Method name="ZetIsUnitTestBezig">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>IsBezig:%Boolean,TestManagerClassName:%String</FormalSpec>
 <Implementation><![CDATA[
 	if IsBezig set IsBezig = $Job
 	set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess",TestManagerClassName) = IsBezig
+	set:IsBezig $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess_Started",TestManagerClassName) = $H
+	Kill:$$$Not(IsBezig) $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess_Started",TestManagerClassName)
 	quit
 ]]></Implementation>
 </Method>