Index: TECH/ObjectUtils/impl/ObjectConverter/Validator.cls.xml
===================================================================
diff -u -r2213 -r2217
--- TECH/ObjectUtils/impl/ObjectConverter/Validator.cls.xml	(.../Validator.cls.xml)	(revision 2213)
+++ TECH/ObjectUtils/impl/ObjectConverter/Validator.cls.xml	(.../Validator.cls.xml)	(revision 2217)
@@ -6,7 +6,17 @@
 <Method name="IsValid">
 <FormalSpec>Object:%CacheString,PropertyName:%String,Value:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit (Value="") || ($method(Object,PropertyName_"IsValid",Value))
+<Implementation><![CDATA[
+	#dim IsValid As %Boolean = $$$true
+
+	if IsValid {
+		 #dim CompiledProperty As %Dictionary.CompiledProperty = ##class(%Dictionary.CompiledProperty).%OpenId(Object.%ClassName(1)_"||"_PropertyName)
+		 if (CompiledProperty.Required) set IsValid = $$$Not(Value="")
+	}
+	
+	set:IsValid IsValid = (Value="") || ($method(Object,PropertyName_"IsValid",Value))
+	
+	quit IsValid
 ]]></Implementation>
 </Method>
 </Class>