Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r994 -r1018
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 994)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1018)
@@ -5,6 +5,21 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="GetClassesStartingWith">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Value:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Classes = ##class(%ListOfDataTypes).%New()
+	#dim rsClasses As TECH.ResultSet = ##class(TECH.ResultSet).Create("SELECT ID FROM %Dictionary.ClassDefinition WHERE ID %STARTSWITH ?",$listbuild(Value))
+	while rsClasses.Next() {
+		do Classes.Insert(rsClasses.GetData(1))
+	}
+	
+	quit Classes
+]]></Implementation>
+</Method>
+
 <Method name="IsEnumeratie">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlasseNaam:%String</FormalSpec>