Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r1905 -r2131
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 1905)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2131)
@@ -92,12 +92,22 @@
 <Implementation><![CDATA[
 	if $isObject(Value) {
 		set result = ( $zobjMethod(Value,"%ValidateObject") = 1 )
-		if result { set result = $zobjMethod(Value,"%Extends",ClassName) }
+		if result { 
+			set result = $zobjMethod(Value,"%Extends",ClassName) 
+			If ('result){
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("'"_Value_"' is niet van de correcte klasse '"_ClassName_"'"))	
+			}
+		}
 		if result { set result = ..PropertiesValid(Value) }
 	}
 	else  { 
 		set result = $zobjClassMethod(ClassName,"IsValidDT",Value)
 	}
+	If ('result){
+		Set Message = "Validate van '"_Value_"' is niet gelukt."
+		Set:$G(%objlasterror)'="" Message = Message_" "_$$ParseStatus^vhLib(%objlasterror)
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(Message))	
+	}
 	quit result
 ]]></Implementation>
 </Method>
@@ -122,15 +132,21 @@
 		set Property = itProperties.Next()
 		continue:Property.Calculated
 		set PropertyValue = $zobjProperty(Object,Property.Name)
-		if Property.Collection {
+		if (Property.Collection || (Property.Collection = "list")) {
 			set itCollection = ##class(TECH.ListIterator).%New(PropertyValue)
 			while (result) && (itCollection.HasNext()) {
 				set CollectionValue = itCollection.Next()
 				set result = ..ValueIsValid(CollectionValue,Property.Type)
+				If ('result){
+					Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property_"' met  waarde '"_PropertyValue_"' is niet correct, type: "_Property.Type))		
+				}
 			}
 		}
 		elseif $length(PropertyValue) {
-			set result = $zobjMethod(Object,Property.Name_"IsValidDT",PropertyValue)
+			Set result = ..ValueIsValid(PropertyValue,Property.Type)
+			If ('result){
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Validatie van  '"_Property_"' met  waarde '"_PropertyValue_"' is niet correct, type: "_Property.Type))		
+			}
 		}
 	}
 	quit result