Index: TECH/CompiledClassUtils.cls.xml
===================================================================
diff -u -r2167 -r2224
--- TECH/CompiledClassUtils.cls.xml	(.../CompiledClassUtils.cls.xml)	(revision 2167)
+++ TECH/CompiledClassUtils.cls.xml	(.../CompiledClassUtils.cls.xml)	(revision 2224)
@@ -29,6 +29,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProperty">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:TECH.String,PropertyName:TECH.String</FormalSpec>
+<ReturnType>%Dictionary.CompiledProperty</ReturnType>
+<Implementation><![CDATA[
+	#dim CompiledPropertyID = ClassName_"||"_PropertyName
+	If $$$Not(##class(%Dictionary.CompiledProperty).%ExistsId(CompiledPropertyID)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("CompiledProperty met ID '"_CompiledPropertyID_"' bestaat niet"_$S(ClassName="":" (Klassenaam is leeg)", 1:"")_".")
+	}
+	Quit ##class(%Dictionary.CompiledProperty).%OpenId(CompiledPropertyID)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPropertyParameter">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:TECH.String,PropertyName:TECH.String,ParameterName:TECH.String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefProperty(ClassName,PropertyName).Parameters.GetAt(ParameterName)
+]]></Implementation>
+</Method>
+
 <Method name="GetSQLTableName">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ClassName:TECH.String</FormalSpec>