Index: TECH/BackgroundProcess/impl/Data.cls.xml
===================================================================
diff -u -r1198 -r3832
--- TECH/BackgroundProcess/impl/Data.cls.xml	(.../Data.cls.xml)	(revision 1198)
+++ TECH/BackgroundProcess/impl/Data.cls.xml	(.../Data.cls.xml)	(revision 3832)
@@ -71,6 +71,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsSharedLockGelukt">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim scLocked As %Status = ..%AcquireLock("s")
+	Quit $$$ISOK(scLocked)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^TECH.BackgroundProces42C4.DataD</DataLocation>