Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1799 -r2139
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1799)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2139)
@@ -46,7 +46,7 @@
 <FormalSpec>KlasseNaam:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
+	Set Klasse = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam, $$$ConcurrenyNoLocks)
 	#dim IsEnumeratie As %Boolean
 	If $IsObject(Klasse) {
 		Set IsEnumeratie = ((Klasse.ClassType="datatype") && ('Klasse.System))
@@ -75,7 +75,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsAbstract As %Boolean = 0
-	set Class = ##class(%Dictionary.ClassDefinition).%OpenId(KlasseNaam)
+	set Class = ##class(%Dictionary.ClassDefinition).%OpenId(KlasseNaam, $$$ConcurrenyNoLocks)
 	if $isObject(Class) Set IsAbstract = (Class.Abstract)	
 	quit IsAbstract
 ]]></Implementation>
@@ -87,7 +87,7 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim IsDataType As %Boolean = 0
-	set Class = ##class(%Library.CompiledClass).%OpenId(KlasseNaam)
+	set Class = ##class(%Library.CompiledClass).%OpenId(KlasseNaam, $$$ConcurrenyNoLocks)
 	if $isObject(Class) Set IsDataType = (Class.Datatype)	
 	quit IsDataType
 ]]></Implementation>
@@ -103,7 +103,7 @@
 	set List = ##class(%ListOfDataTypes).%New()
 	
 	if ##class(%Dictionary.CompiledClass).%ExistsId(KlasseNaam) {
-		 set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
+		 set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam, $$$ConcurrenyNoLocks)
 		 set itProperties = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
 		 while itProperties.HasNext() {
 			#dim Property As %Dictionary.CompiledProperty = itProperties.Next()
@@ -126,7 +126,7 @@
 <Implementation><![CDATA[
 	set List = ##class(TECH.KeyValue.List).%New()
 	if ##class(%Dictionary.CompiledClass).%ExistsId(KlasseNaam) {
-		 set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
+		 set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam, $$$ConcurrenyNoLocks)
 		 set itProperties = ##class(TECH.ListIterator).%New(CompiledClass.Properties)
 		 while itProperties.HasNext() {
 			#dim Property As %Dictionary.CompiledProperty = itProperties.Next()
@@ -170,7 +170,7 @@
 <FormalSpec>KlasseNaam:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Klasse = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam)
+	#dim Klasse = ##class(%Dictionary.CompiledClass).%OpenId(KlasseNaam, $$$ConcurrenyNoLocks)
 	#dim IsZuiverDataType As %Boolean = ((Klasse.ClassType="datatype") && ('Klasse.System))
 	If IsZuiverDataType {
 		Set ParameterIt = ##class(TECH.ListIterator).%New(Klasse.Parameters)
@@ -193,7 +193,7 @@
 	if IsOurs set IsOurs = '##class(TECH.StringUtils).StartsWith(Classname,"%")
 	if IsOurs set IsOurs = ##class(%Dictionary.ClassDefinition).%ExistsId(Classname)
 	if IsOurs {
-		set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(Classname,0)
+		set ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(Classname, $$$ConcurrenyNoLocks)
 		set IsOurs = '$length(ClassDefinition.GeneratedBy)
 	}
 	quit IsOurs
@@ -218,7 +218,7 @@
 		#Dim Method As TECH.ClassInfo.MethodDefinition = Class.GeefMethod(MethodName)
 		#Dim DefaultArgs As %CacheString = ""
 		
-		Set CompiledMethod = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_MethodName)
+		Set CompiledMethod = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_MethodName, $$$ConcurrenyNoLocks)
 		
 		If ($IsObject(CompiledMethod)){
 			Set DefaultArgs = CompiledMethod.DefaultArgs
@@ -293,7 +293,7 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ClassName:%String,Method:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_Method).ReturnType
+<Implementation><![CDATA[	quit ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_Method, $$$ConcurrenyNoLocks).ReturnType
 ]]></Implementation>
 </Method>
 
@@ -303,7 +303,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set ReturnType = ""
-	set CompiledMethod = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_Method)
+	set CompiledMethod = ##class(%Dictionary.CompiledMethod).%OpenId(ClassName_"||"_Method, $$$ConcurrenyNoLocks)
 	for Counter = 1 : 1 : $listlength(CompiledMethod.FormalSpecParsed) {
 		set Part = $listget(CompiledMethod.FormalSpecParsed,Counter)
 		if $listfind(Part,Parameter) set ReturnType = $listget(Part,2)
@@ -403,7 +403,7 @@
 	if '$IsObject(Object) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Opgegeven object is geen object"))
 	}
-	set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(Object.%ClassName(1))
+	set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(Object.%ClassName(1), $$$ConcurrenyNoLocks)
 	if '$isObject(CompiledClass) {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen gecompileerde code beschikbaar voor "_Object.%ClassName(1)))
 	}
@@ -455,7 +455,7 @@
 <Implementation><![CDATA[
 	Set ClassParameterValue=""
 	If ##class(%Dictionary.ClassDefinition).%ExistsId(ClassName) {
-		Set pdef=##class(%Dictionary.ParameterDefinition).%OpenId(ClassName_"||"_ParamName)
+		Set pdef=##class(%Dictionary.ParameterDefinition).%OpenId(ClassName_"||"_ParamName, $$$ConcurrenyNoLocks)
 		If $IsObject(pdef) {
 			Set ClassParameterValue=pdef.Default
 		}
@@ -496,7 +496,7 @@
  Quit:Result Result
 
  Set Done(IdxClass)=""
- Set objClass=##class(%Dictionary.ClassDefinition).%OpenId(IdxClass,$$$ConcurrenyNoLocks)
+ Set objClass=##class(%Dictionary.ClassDefinition).%OpenId(IdxClass, $$$ConcurrenyNoLocks)
  Set Super = objClass.Super
  
  If (","_Super_",")[(","_ClassFrom_",") Set Result=1