Index: TECH/ObjectUtils/impl/ObjectConverter.cls.xml
===================================================================
diff -u -r2202 -r2209
--- TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2202)
+++ TECH/ObjectUtils/impl/ObjectConverter.cls.xml	(.../ObjectConverter.cls.xml)	(revision 2209)
@@ -31,7 +31,7 @@
 		try {
 			#dim Output As %CacheString = ""
 		
-			do ..Validate(ObjectFrom,Conversion.PropertyFrom,1)
+			do ..Validate(ObjectFrom,Conversion,1)
 		    
 		    #dim Input As %CacheString = $property(ObjectFrom,Conversion.PropertyFrom)
 		    
@@ -43,7 +43,7 @@
 			
 			set $property(ObjectTo,Conversion.PropertyTo) = Output
 			
-			do ..Validate(ObjectTo,Conversion.PropertyTo,0)
+			do ..Validate(ObjectTo,Conversion,0)
 			
 
 		} catch {
@@ -61,12 +61,13 @@
 </Method>
 
 <Method name="Validate">
-<FormalSpec>Object:%Base,PropertyName:%String,IsInput:%Boolean</FormalSpec>
+<FormalSpec>Object:%Base,Conversion:TECH.ObjectUtils.ObjectConverter.Conversion,IsInput:%Boolean</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	#dim PropertyName As %CacheString = $select(IsInput:Conversion.PropertyFrom,1:Conversion.PropertyTo)
 	#dim PropertyValue As %CacheString = $property(Object,PropertyName)
-	if $$$Not($method(Object,PropertyName_"IsValid",PropertyValue)) {
-		set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New($select(IsInput:"input",1:"output"),$classname(Object),PropertyName,PropertyValue)
+	if ($$$HasLength(PropertyValue)) && ($$$Not($method(Object,PropertyName_"IsValid",PropertyValue))) {
+		set Exception = ##class(TECH.ObjectUtils.ObjectConverterPropertyException).%New($select(IsInput:"input",1:"output"),$classname(Object),PropertyName,PropertyValue,Conversion.PropertyFrom,Conversion.PropertyTo)
 		do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 ]]></Implementation>