Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r3034 -r3140
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 3034)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 3140)
@@ -552,7 +552,7 @@
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
 	set Classes = ##class(%ListOfDataTypes).%New()
-	#dim Query As TECH.String = "SELECT Name FROM %Dictionary.ClassDefinition WHERE Name %STARTSWITH ? ORDER BY Name"
+	#dim Query As TECH.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() {