Index: TECH/Files.cls.xml
===================================================================
diff -u -r224 -r525
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 224)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 525)
@@ -26,7 +26,9 @@
 <Method name="AppendSubPath">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Directory:%String,SubPath:%String</FormalSpec>
-<Implementation><![CDATA[	Quit ##class(%File).NormalizeDirectory(..AppendFile(Directory,SubPath))
+<Implementation><![CDATA[
+	#dim Fullname As %String = ..AppendFile(Directory,SubPath)
+	Quit ##class(%File).NormalizeDirectory(Fullname)
 ]]></Implementation>
 </Method>