Index: TECH/File/impl/FileAPI.cls.xml
===================================================================
diff -u -r2484 -r2555
--- TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2484)
+++ TECH/File/impl/FileAPI.cls.xml	(.../FileAPI.cls.xml)	(revision 2555)
@@ -14,7 +14,10 @@
 
 <Method name="MoveFile">
 <FormalSpec>FilenameOld:%String,FilenameNew:%String</FormalSpec>
-<Implementation><![CDATA[  	do ##class(TECH.File).Rename(FilenameOld,FilenameNew)
+<Implementation><![CDATA[
+  	if '##class(TECH.File).Rename(FilenameOld,FilenameNew) {
+	 	do ##class(TECH.Exceptions.FileException).Throw("Failed to move file '"_FilenameOld_"' to '"_FilenameNew_"'") 	
+  	}
 ]]></Implementation>
 </Method>