Index: TECH/BackgroundProcess/Uitvoerder.cls.xml
===================================================================
diff -u -r3802 -r3833
--- TECH/BackgroundProcess/Uitvoerder.cls.xml	(.../Uitvoerder.cls.xml)	(revision 3802)
+++ TECH/BackgroundProcess/Uitvoerder.cls.xml	(.../Uitvoerder.cls.xml)	(revision 3833)
@@ -42,7 +42,11 @@
 
 		Do ..ExecuteMethod(Class,Data.MethodName,..Params)
 		
-		Do ##class(TECH.BackgroundProcess.impl.Data).DeleteId(DataID)
+		#dim DataKonGelockedWorden As %Boolean = Data.IsSharedLockGelukt()
+		If (DataKonGelockedWorden) {
+			Set Data = ""
+			Do ##class(TECH.BackgroundProcess.impl.Data).DeleteId(DataID)
+		}
 		
 	} Catch {
 		#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.ExceptionHandler).Catch()