Index: Tools/UnitTest/TestCase.cls.xml
===================================================================
diff -u -r277 -r301
--- Tools/UnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 277)
+++ Tools/UnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 301)
@@ -249,13 +249,13 @@
 <FormalSpec>EventType:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Query As %String = "SELECT EventType,RespondingClass,RespondingMethod FROM TECH_PubSub.EventSubscription WHERE EventType = ?"
-	#dim RS As %ResultSet = $$ExecDynQuery^vhQUERYLIB(Query,$LB(EventType))
+	#dim RS As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB(EventType))
 	While RS.Next(){
 		Do ..UitgeschakeldeEvents.SetAt($LB(RS.Data("RespondingClass"),RS.Data("RespondingMethod")),RS.Data("EventType"))
 	}
 	
 	Set Query = "DELETE TECH_PubSub.EventSubscription WHERE EventType = ?"
-	Do ExecDynQuery^vhQUERYLIB(Query,$LB(EventType))
+	Do ExecDynQuery^vhLib.Query(Query,$LB(EventType))
 ]]></Implementation>
 </Method>