Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2194 -r2202
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2194)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2202)
@@ -141,6 +141,8 @@
 	while itProperties.HasNext() {
 		set Property = itProperties.Next()
 		continue:Property.Calculated
+		continue:Property.Private
+		continue:Property.MultiDimensional
 		set PropertyValue = $zobjProperty(Object,Property.Name)
 		if (Property.Collection || (Property.Collection = "list") || (Property.Collection = "array")) {
 			If (Property.Collection = "array"){
@@ -159,7 +161,7 @@
 			If ('result){
 				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property.%ClassName(1)_"' is niet correct. (Waarde: '"_PropertyValue_"' is niet correct, Type: '"_Property.Type_"'"))		
 			}
-		}
+		}		
 	}
 	quit
 ]]></Implementation>