Index: TECH/Directory.cls.xml
===================================================================
diff -u -r9 -r645
--- TECH/Directory.cls.xml	(.../Directory.cls.xml)	(revision 9)
+++ TECH/Directory.cls.xml	(.../Directory.cls.xml)	(revision 645)
@@ -62,6 +62,17 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="IsEmpty">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Directory:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set ResultSet = ##class(%ResultSet).%New("%File:FileSet")
+	do ResultSet.Execute(Directory,"*")
+	quit 'ResultSet.Next()
+]]></Implementation>
+</Method>
 </Class>