Index: TECH/CompiledClassUtils.cls.xml
===================================================================
diff -u
--- TECH/CompiledClassUtils.cls.xml	(revision 0)
+++ TECH/CompiledClassUtils.cls.xml	(revision 1550)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.CompiledClassUtils">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GetCompiledTimeStamp">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String</FormalSpec>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[
+	#dim CompiledTimeStamp As %TimeStamp = ##class(TECH.DateTime).HorologToTimeStamp($get(^oddCOM(ClassName,63)))
+	quit CompiledTimeStamp
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhLib/Class.mac.rou
===================================================================
diff -u -r1223 -r1550
--- vhLib/Class.mac.rou	(.../Class.mac.rou)	(revision 1223)
+++ vhLib/Class.mac.rou	(.../Class.mac.rou)	(revision 1550)
@@ -38,9 +38,20 @@
  set flagEmbeddedOnly = $get(flagEmbeddedOnly, 0 )
  set flagDeeperLevel = $get(flagDeeperLevel, 1 )
  
+ new Node set Node = flagRequired_flagCalculated_flagEmbeddedOnly_flagDeeperLevel
+ 
  kill arrHULP($job)
  kill arrProperties
- do BuildarrProperties(ClassName,.arrProperties,flagRequired,flagCalculated,flagEmbeddedOnly,flagDeeperLevel)
+ 
+ if $get(^tmp.PROPERTIES(ClassName,Node)) '= ##class(TECH.CompiledClassUtils).GetCompiledTimeStamp(ClassName) {
+	 kill ^tmp.PROPERTIES(ClassName,Node)
+ }
+ if '$data(^tmp.PROPERTIES(ClassName,Node))	{
+	 do BuildarrProperties(ClassName,.arrProperties,flagRequired,flagCalculated,flagEmbeddedOnly,flagDeeperLevel)
+	 merge ^tmp.PROPERTIES(ClassName,Node) = arrProperties
+	 set ^tmp.PROPERTIES(ClassName,Node) = ##class(TECH.CompiledClassUtils).GetCompiledTimeStamp(ClassName)
+ }
+ merge arrProperties=^tmp.PROPERTIES(ClassName,Node)
  quit
  
  // returns arr(Property) = $listbuild( items )  .. volgorde van items kan je vinden in vhLib.Class.inc
Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1496 -r1550
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1496)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1550)
@@ -21,7 +21,6 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ClassName:TECH.String</FormalSpec>
 <Implementation><![CDATA[
-	
 	#dim DerivedClassIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..GetDerivedClasses(ClassName))
 	quit DerivedClassIterator
 ]]></Implementation>