Index: Tools/Test/Report.cls.xml
===================================================================
diff -u -r972 -r1049
--- Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 972)
+++ Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 1049)
@@ -117,15 +117,21 @@
  &html<<basefont face="Sans-Serif" size="3">>
  &html<#(..GetReportTitle())#>
  #dim GlobalForLogging As %String = ..#GlobalForLogging
+ #dim IsRunning As %String = $G(^SYS("SourceControl","SVN","UnitTestInProcess",..GetManager().%ClassName(1)))>0
  If $d(@GlobalForLogging@(index))=0 &html<<br><font size=4 color="##FF0000"><b>Log Entry Doesn't Exist!</b></font>> Quit $$$OK
  &html<<table>>
- &html<<tr><td align=left><b>NameSpace: </b></td><td><b><a href="#(..#PackagePrefix)#.Report.cls?NS=#(..EscapeURL(namespace))#">#(namespace)#</a></b></td></tr>>
- &html<<tr><td align=left><b>LogIndex: </b></td><td><b>#(index)#<b></td></tr>>
- &html<<tr colspan="2"><td colspan="2" align=left><b>Finished #(..GetEndTime(index)_" ( "_..GetDuration(index)_" )")#</b></td></tr>>
+ &html<<tr><td align=left><b>NameSpace: </b></td><td><b><a href="#(..#PackagePrefix)#.Report.cls?NS=#(..EscapeURL(namespace))#">#(namespace)#</a></b></td>>
+ 	If IsRunning {
+ 		&html<<td rowspan='3'><b><img src="http://fop/CacheMonitoring/busy.gif" width="65px" hspace="15"/></b></td>>
+ 	}
+ &html<</tr>>
+  
+ &html<<tr colspan="2"><td colspan="2" align=left><b>Duration #(..GetDuration(index))#</b></td></tr>>
+ &html<<tr colspan="2"><td colspan="2" align=left><b>Finished #(..GetEndTime(index))#</b></td></tr>>
  &html<</table>>
  &html<<table border="1" cellspacing="0" cellpadding="4" bordercolor="#CCCCCC">>
  &html<<tr bgcolor="#ACBBD5">>
- &html<<td><font color="#FFFFFF"><b>Test Suites</b></font></td>>
+ &html<<td><font color="#FFFFFF"><b>Test Suites</b> ( ID #(index)# )</font></td>>
  &html<<td width=100 align=center><font color="#FFFFFF"><b>Status</b></font></td>>
  &html<</tr>>
  Set suite="" For  Set suite=$o(@GlobalForLogging@(index,suite)) Quit:suite=""  Do