Index: APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml
===================================================================
diff -u -r36789 -r36795
--- APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml	(.../MultiGlobalLocker.cls.xml)	(revision 36789)
+++ APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker.cls.xml	(.../MultiGlobalLocker.cls.xml)	(revision 36795)
@@ -21,8 +21,8 @@
 
 <Method name="ClearGlobalRefs">
 <Implementation><![CDATA[
-	do ..GlobalRefs.Clear()
 	if $$$Not(..Locked) {
+		do ..GlobalRefs.Clear()
 	} else {
 		do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Lijst locks kan niet leeg gemaakt worden terwijl er gelocked is"))
 	}
@@ -54,6 +54,7 @@
 <FormalSpec>timeout:%Integer=0</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
+	quit:(..Locked = 0) 0
 	set ..Locked = 0
 	quit ..LockGlobals("-",timeout)
 ]]></Implementation>
@@ -66,6 +67,7 @@
 <Implementation><![CDATA[
 	#dim GlobalRefIterator as TECH.ListIterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).RemoveDuplicateItems(..GlobalRefs))
 	#dim GlobalRef as %String
+	
 	#dim LockCmd as String = "Lock "_Operation_"("
 	while GlobalRefIterator.HasNext(){
 		set GlobalRef = GlobalRefIterator.Next()
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService/Test.cls.xml
===================================================================
diff -u -r36789 -r36795
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService/Test.cls.xml	(.../Test.cls.xml)	(revision 36789)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02TransactionService/Test.cls.xml	(.../Test.cls.xml)	(revision 36795)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.AKP.AankoopControle.BLUM.impl.INVOIC02TransactionService.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="aTest Zetzendingen voegt de correcte global referenties aan de locker">
+<Method name="Test Zetzendingen voegt de correcte global referenties aan de locker">
 <Implementation><![CDATA[
 	#dim LockerMock as vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker = ##class(vhTest.Mock.APPS.AKP.AankoopControle.BLUM.impl.MultiGlobalLocker).%New()
 	#dim ZendingServiceMock as vhTest.Mock.APPS.AKP.Zending.ZendingService = ##class(vhTest.Mock.APPS.AKP.Zending.ZendingService).%New()
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker/Test.cls.xml
===================================================================
diff -u -r36789 -r36795
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker/Test.cls.xml	(.../Test.cls.xml)	(revision 36789)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/MultiGlobalLocker/Test.cls.xml	(.../Test.cls.xml)	(revision 36795)
@@ -16,8 +16,18 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
+	LOCK -@(..#globalref)#"I"
+	LOCK -@(..#globalref2)#"I"
 	Do ##super(aTestName)
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
 	LOCK -@(..#globalref)#"I"
+	LOCK -@(..#globalref2)#"I"
+	Do ##super(aTestName)
 ]]></Implementation>
 </Method>
 
@@ -47,8 +57,9 @@
 	
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Lijst locks kan niet leeg gemaakt worden terwijl er gelocked is")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
-	
 	do locker.ClearGlobalRefs()
+	
+	;open lock cleared by on AfterOneTest
 ]]></Implementation>
 </Method>
 
@@ -68,7 +79,10 @@
 	do $$$AssertEquals(locker.Lock(),1)
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Nieuwe lock gevraagd terwijl er reeds gelocked is")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.GeneralErrorException).%ClassName(1),Substrings))
+	
 	do locker.VoegToeGlobalRef(..#globalref2)
+	
+	; OnAfterOneTest kuist openstaande lock op.
 ]]></Implementation>
 </Method>
 
@@ -85,7 +99,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test Lock geeft 0 terug als er één van de globalrefs door een ander proces is gelocked">
+<Method name="aTest Lock geeft 0 terug als er één van de globalrefs door een ander proces is gelocked">
 <Implementation><![CDATA[	;geen flauw hoe dit te testen is. andere jobke opstarten die lock neemt?
 ]]></Implementation>
 </Method>