Index: vhTest/Fake/TECH/File/FileAPI.cls.xml
===================================================================
diff -u -r2490 -r2617
--- vhTest/Fake/TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2490)
+++ vhTest/Fake/TECH/File/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2617)
@@ -3,19 +3,32 @@
 <Class name="vhTest.Fake.TECH.File.FileAPI">
 <Super>TECH.File.impl.FileAPI</Super>
 
+<Property name="FileUtils">
+<Type>TECH.File.FileUtils</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="FileWriter">
 <Type>vhTest.Fake.TECH.File.FileWriter</Type>
 <Private>1</Private>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>FileUtils:TECH.File.FileUtils,FileWriter:TECH.File.FileWriter</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..FileWriter = $$$Inject(FileWriter, ##class(vhTest.Fake.TECH.File.FileWriter).%New())
+	Set ..FileUtils = $$$Inject(FileUtils,##class(vhTest.Fake.TECH.File.FileUtils).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefFileWriter">
 <ReturnType>TECH.File.FileWriter</ReturnType>
-<Implementation><![CDATA[
-	if ('$IsObject(..FileWriter))
-	{
-		Set ..FileWriter = ##class(vhTest.Fake.TECH.File.FileWriter).%New()
-	}
-	quit ..FileWriter
+<Implementation><![CDATA[	quit ..FileWriter
 ]]></Implementation>
 </Method>
 
@@ -24,6 +37,12 @@
 <Implementation><![CDATA[	Quit ##class(vhTest.Fake.TECH.File.FileNameGenerator).Instance()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefFileUtils">
+<ReturnType>TECH.File.impl.FileUtils</ReturnType>
+<Implementation><![CDATA[	Quit ..FileUtils
+]]></Implementation>
+</Method>
 </Class>