Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1637 -r1645
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1637)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1645)
@@ -491,7 +491,7 @@
  Quit:Result Result
 
  Set Done(IdxClass)=""
- Set objClass=##class(%Dictionary.ClassDefinition).%OpenId(IdxClass)
+ Set objClass=##class(%Dictionary.ClassDefinition).%OpenId(IdxClass,$$$ConcurrenyNoLocks)
  Set Super = objClass.Super
  
  If (","_Super_",")[(","_ClassFrom_",") Set Result=1
Index: vhLib/Macro.inc.rou
===================================================================
diff -u -r1630 -r1645
--- vhLib/Macro.inc.rou	(.../Macro.inc.rou)	(revision 1630)
+++ vhLib/Macro.inc.rou	(.../Macro.inc.rou)	(revision 1645)
@@ -142,3 +142,6 @@
 #define LaatsteGlobalReferentie		   $ZR
 #define IfThen(%statement,%true,%false)	if %statement { do %true } else { do %false }
 
+#define ConcurrenyNoLocks		0
+#define ConcurrenyAtomic		1
+#define ConcurrenyShared		2