Index: TECH/BackgroundProcess/impl/Data.cls.xml
===================================================================
diff -u -r3832 -r3834
--- TECH/BackgroundProcess/impl/Data.cls.xml	(.../Data.cls.xml)	(revision 3832)
+++ TECH/BackgroundProcess/impl/Data.cls.xml	(.../Data.cls.xml)	(revision 3834)
@@ -75,6 +75,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim scLocked As %Status = ..%AcquireLock("s")
+	If $$$ISOK(scLocked) Do ..%ReleaseLock("s")
 	Quit $$$ISOK(scLocked)
 ]]></Implementation>
 </Method>