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()