Index: TECH/Lock.cls.xml
===================================================================
diff -u -r2182 -r2184
--- TECH/Lock.cls.xml	(.../Lock.cls.xml)	(revision 2182)
+++ TECH/Lock.cls.xml	(.../Lock.cls.xml)	(revision 2184)
@@ -47,7 +47,7 @@
 		If (LockType = ##class(TECH.enu.LockType).Shared()){
 			LOCK +@(..LockKey)#"S"
 		}ElseIf(LockType = ##class(TECH.enu.LockType).Exclusive()){
-			LOCK @(..LockKey)	
+			LOCK @(..LockKey)	// (RV-JCL) alle andere locks worden te niet gedaan ... dus best lock + van maken..
 		}
 	}
 	/// Toch lock opgezet, maar van onbekend type : Fout