Index: TECH/CompiledClassUtils.cls.xml
===================================================================
diff -u -r2164 -r2167
--- TECH/CompiledClassUtils.cls.xml	(.../CompiledClassUtils.cls.xml)	(revision 2164)
+++ TECH/CompiledClassUtils.cls.xml	(.../CompiledClassUtils.cls.xml)	(revision 2167)
@@ -21,6 +21,14 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PropertyExists">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:TECH.String,PropertyName:TECH.String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (##class(%Dictionary.CompiledProperty).%ExistsId(ClassName _ "||" _ PropertyName))
+]]></Implementation>
+</Method>
+
 <Method name="GetSQLTableName">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ClassName:TECH.String</FormalSpec>