Index: vhConsistency/Checks/EventSubscriptions.cls.xml
===================================================================
diff -u -r51205 -r51407
--- vhConsistency/Checks/EventSubscriptions.cls.xml	(.../EventSubscriptions.cls.xml)	(revision 51205)
+++ vhConsistency/Checks/EventSubscriptions.cls.xml	(.../EventSubscriptions.cls.xml)	(revision 51407)
@@ -16,8 +16,9 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Status = $$$OK
-	Set Query = "select ES.RespondingClass from TECH_PubSub.EventSubscription ES left join %Dictionary.ClassDefinition CD ON ES.RespondingClass = CD.ID where CD.ID is null"
-	Set ResultSet = ##class(%ResultSet).%New(Query)
+	Set Query = "select ES.RespondingClass from TECH_PubSub.EventSubscription ES left join %Dictionary.ClassDefinition CD ON ES.RespondingClass = CD.Name where CD.Name is null"
+	Set ResultSet = ##class(%ResultSet).%New()
+	Do ResultSet.Prepare(Query)
 	Do ResultSet.Execute()
 	While (ResultSet.Next())
 	{