Index: TECH/ClassUtils.cls.xml
===================================================================
diff -u -r2206 -r2207
--- TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2206)
+++ TECH/ClassUtils.cls.xml	(.../ClassUtils.cls.xml)	(revision 2207)
@@ -112,24 +112,18 @@
 <Method name="IsValidParameterForMethod">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&Value:%CacheString,ClassName:%String,Method:%String,Parameter:%String]]></FormalSpec>
-<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set Type = ..GetMethodParameterType(ClassName,Method,Parameter)
 	Do ..ValueIsValid(.Value,Type)
-	/// Indien ValueIsValid niet geldig is, wordt een fout gethrowed, dus hieronder mag $$$OK weergegeven worden
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="IsValidReturnTypeForMethod">
 <ClassMethod>1</ClassMethod>
 <FormalSpec><![CDATA[&Value:%CacheString,ClassName:%String,Method:%String]]></FormalSpec>
-<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set Type = ..GetMethodReturnType(ClassName,Method)
 	Do ..ValueIsValid(.Value,Type)
-	/// Indien ValueIsValid niet geldig is, wordt een fout gethrowed, dus hieronder mag $$$OK weergegeven worden
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -155,7 +149,7 @@
 	else  { 
 		set result = $zobjClassMethod(ClassName,"IsValidDT",Value)
 	}
-	If ('result){
+	If ($$$ISERR(result)){
 		Set Message = "Validate van "_ ClassName_" is niet gelukt."
 		Set:('$IsObject(Value)) Message = Message_ " (Waarde : '"_Value_"')"
 		Set:(($G(%objlasterror)'="") && '(%objlasterror [ "ECODETRAP")) Message = Message_" "_$$ParseStatus^vhLib(%objlasterror)