Index: TECH/Lock/LockUtils.cls.xml
===================================================================
diff -u -r3283 -r3285
--- TECH/Lock/LockUtils.cls.xml	(.../LockUtils.cls.xml)	(revision 3283)
+++ TECH/Lock/LockUtils.cls.xml	(.../LockUtils.cls.xml)	(revision 3285)
@@ -8,14 +8,16 @@
 <FormalSpec>ProcessId:%String</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	set Locks = ##class(%ListOfDataTypes).%New()
-	Set LockSet=##class(%ResultSet).%New("%SYS.LockQuery:List")
-	Do LockSet.Execute(ProcessId)
-	while LockSet.Next() {
-		do Locks.Insert(LockSet.Data("LockString"))
+	Set Locks = ##class(%ListOfDataTypes).%New()
+	
+	Set Query = ##class(TECH.ClassQuery).%New("%SYS.LockQuery","List",$LB(ProcessId))
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
+	
+	While ResultSet.Next() {
+		Do Locks.Insert(ResultSet.Data("LockString"))
 	}
-	do LockSet.%Close()
-	quit Locks
+	Do ResultSet.Close()
+	Quit Locks
 ]]></Implementation>
 </Method>