Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1787 -r1799
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1787)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1799)
@@ -514,6 +514,34 @@
  Quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="GetClassesInPackageIterator">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Package:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim ClassesInPackageIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GetClassesInPackage(Package))
+	quit ClassesInPackageIterator
+]]></Implementation>
+</Method>
+
+<Method name="GetClassesInPackage">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Package:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Classes = ##class(%ListOfDataTypes).%New()
+	#dim Query As %String = "SELECT Name FROM %Dictionary.ClassDefinition WHERE Name %STARTSWITH ? ORDER BY Name"
+	
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.ResultSet).Create(Query,$listbuild(Package))
+	while ResultSet.Next() {
+		#dim ClassName As %String = ResultSet.GetData(1)
+		#dim Adder As %Boolean = $$$Not(##class(TECH.StringUtils).EndsWith(Package,"."))
+		if $length(ClassName,".")=($length(Package,".")+Adder) do Classes.Insert(ClassName)
+	}
+	quit Classes
+]]></Implementation>
+</Method>
 </Class>