Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r2120 -r2121
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2120)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2121)
@@ -19,6 +19,7 @@
 
 <Property name="LogIndex">
 <Type>%String</Type>
+<Private>1</Private>
 </Property>
 
 <Property name="Qualifiers">
@@ -83,10 +84,6 @@
 <Private>1</Private>
 </Property>
 
-<Parameter name="DUPEPackagePrefix">
-<Type>%String</Type>
-</Parameter>
-
 <Method name="GeefTestType">
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[	Quit ..#TestType
@@ -233,10 +230,7 @@
 <FormalSpec>qualifiers:%String,userparam:%String="",Substring:%String="",methodPrefix:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
- //if '##class(TECH.StringUtils).StartsWith(Substring,..#PackagePrefix) {
- //	set:$L(Substring) Substring = ..#PackagePrefix_"."_Substring
- //}
- 
+ set ..LogIndex = ""
  Do ..ParseQualifiers(.qualifiers,"/typestorun=/nodebug/display=errors/load/run/recursive/quiet/mailonerror=0/mailonsucces=0/force/duration=0")
  set ..Qualifiers.TypesToRun=qualifiers("typestorun")
  if '$length(..Qualifiers.TypesToRun) set ..Qualifiers.TypesToRun = $zconvert($get(^SYS("SourceControl","SVN","TestRunner",..#TestType)),"L")
@@ -540,20 +534,27 @@
 <Method name="SaveLog">
 <Final>1</Final>
 <Implementation><![CDATA[
-	
 	#dim GlobalForLogging As %String = ..GetGlobalForLogging()	
-	#dim GlobalForTimings As %String = ..GetGlobalForTimings()	
+	#dim GlobalForTimings As %String = ..GetGlobalForTimings()		
 	
 	Lock +@GlobalForLogging
-	Set i%LogIndex = $order(@GlobalForLogging@(""),-1)+1
 	Lock -@GlobalForLogging
-	Merge @GlobalForLogging@(i%LogIndex) = i%TheLog
-	Merge @GlobalForTimings@(i%LogIndex)=..TheExecutionTime
-	Set @GlobalForLogging@(i%LogIndex) = $listbuild(..StartTime,..EndTime)
+	Merge @GlobalForLogging@(..LogIndex) = i%TheLog
+	Merge @GlobalForTimings@(..LogIndex)=..TheExecutionTime
+	Set @GlobalForLogging@(..LogIndex) = $listbuild(..StartTime,..EndTime)
 	Quit
 ]]></Implementation>
 </Method>
 
+<Method name="LogIndexGet">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim GlobalForLogging As %String = ..GetGlobalForLogging()	
+	Set:'$length(i%LogIndex) i%LogIndex = $order(@GlobalForLogging@(""),-1)+1
+	quit i%LogIndex
+]]></Implementation>
+</Method>
+
 <Method name="PurgeLog">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
@@ -592,6 +593,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GetSuiteID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..LogIndex
+]]></Implementation>
+</Method>
+
 <Method name="GetCurrentMethod">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit i%TheStack(i%TheStack,"method")