Index: TECH/Lock.cls.xml
===================================================================
diff -u -r2184 -r2192
--- TECH/Lock.cls.xml	(.../Lock.cls.xml)	(revision 2184)
+++ TECH/Lock.cls.xml	(.../Lock.cls.xml)	(revision 2192)
@@ -27,31 +27,14 @@
 </Description>
 <FormalSpec>TimeOut:%Integer=10,LockType:TECH.enu.LockType="X"</FormalSpec>
 <Implementation><![CDATA[
-	Set Status = ..GeefStatus()
-	/// Als shared lock is opgezet, en nog een shared lock gevraagd wordt, dan lock raisen.
-	If ((Status = ##class(TECH.enu.LockType).Shared()) && (LockType = ##class(TECH.enu.LockType).Shared())){
+	If (LockType = ##class(TECH.enu.LockType).Shared()){
 		LOCK +@(..LockKey)#"S"
+	}ElseIf(LockType = ##class(TECH.enu.LockType).Exclusive()){
+		LOCK +@(..LockKey)
 	}
-	/// Als shared lock is opgezet, en een exclusive lock gevraagd wordt : Fout
-	ElseIf ((Status = ##class(TECH.enu.LockType).Shared()) && (LockType = ##class(TECH.enu.LockType).Exclusive())){
-		Set Exception = ##class(TECH.Exceptions.LockedException).%New("Kan geen exclusieve lock verkrijgen voor "_..LockKey_", heeft reeds een shared lock")
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-	///  Als exclusive lock is opgezet : Fout
-	ElseIf(Status = ##class(TECH.enu.LockType).Exclusive()){
-		Set Exception = ##class(TECH.Exceptions.LockedException).%New("Kan geen "_LockType_" lock verkrijgen voor "_..LockKey_", heeft reeds een exclusive lock")
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-	/// Geen lock opgezet : Lock opzetten
-	ElseIf(Status = ""){
-		If (LockType = ##class(TECH.enu.LockType).Shared()){
-			LOCK +@(..LockKey)#"S"
-		}ElseIf(LockType = ##class(TECH.enu.LockType).Exclusive()){
-			LOCK @(..LockKey)	// (RV-JCL) alle andere locks worden te niet gedaan ... dus best lock + van maken..
-		}
-	}
 	/// Toch lock opgezet, maar van onbekend type : Fout
 	Else{			
+		Set Status = ..GeefStatus()
 		Set Exception = ##class(TECH.Exceptions.LockedException).%New("Kan geen "_LockType_" lock verkrijgen voor "_..LockKey_", status : '"_$$LCVT^vhLib(Status)_"'")
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
@@ -88,6 +71,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsGelocked">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$IsLocked^vhLib(..LockKey)
+]]></Implementation>
+</Method>
+
 <Method name="HeeftExclusiveLock">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit (..GeefStatus() = ##class(TECH.enu.LockType).Exclusive())