Index: vhLib/Class.mac.rou
===================================================================
diff -u -r2002 -r2834
--- vhLib/Class.mac.rou	(.../Class.mac.rou)	(revision 2002)
+++ vhLib/Class.mac.rou	(.../Class.mac.rou)	(revision 2834)
@@ -107,6 +107,7 @@
  set $list(result,$$$fldClassName) = Type
  set $list(result,$$$fldIsPersistent) = $$IsPersistent(Type)
  set $list(result,$$$fldCollection) = $$Collection(ClassName,Property)
+ set $list(result,$$$fldIsPrivate) = $$IsPrivate(ClassName,Property)
  
  quit result 
  
@@ -120,6 +121,12 @@
  quit $$ParameterValue(CacheObject,PropertyName,"Required",1)
  
  ;----------------------------------------------------------------------------------------------------
+IsPrivate(CacheObject,PropertyName)
+ w !,CacheObject
+ w !,PropertyName
+ quit $$ParameterValue(CacheObject,PropertyName,"Private",0)
+
+ ;----------------------------------------------------------------------------------------------------
 IsCalculated(ClassName,Property)
  quit $$ParameterValue(ClassName,Property,"Calculated",0)
  
@@ -267,3 +274,4 @@
 	}
 	quit ##class(TECH.ListIterator).%New(List)
 	
+