Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r3257 -r3314
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 3257)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 3314)
@@ -26,6 +26,11 @@
 <Type>Tools.Test.Manager.Qualifiers</Type>
 </Property>
 
+<Property name="FormatApi">
+<Type>TECH.Format.FormatAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="CurrentDir">
 <Type>%String</Type>
 </Property>
@@ -175,6 +180,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..Qualifiers = ##class(Tools.Test.Manager.Qualifiers).%New()
+	Set ..FormatApi = ##class(TECH.Format.impl.FormatAPI).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -230,7 +236,7 @@
  	#dim Prefix As TECH.String = " -- "
  	write !, Prefix, "Test cases: " , ..TestCaseCount
  	write !, Prefix, "Methods: ",..TestCount
- 	write !, Prefix, "Duration: "_##class(TECH.Context).Instance().GeefFormatAPI().FormatHorolog(","_$Piece(Verschil, ".",1), "nn:ss")_"."_$Piece(Verschil, ".",2), !
+ 	write !, Prefix, "Duration: "_..FormatApi.FormatHorolog(","_$Piece(Verschil, ".",1), "nn:ss")_"."_$Piece(Verschil, ".",2), !
  	if '..IsSuccess(..TestSuite) {
 	 	write !," ===== ERRORS: ===== "
 	 	do ..DisplayFails(..TestSuite)