Index: AXimpl/ObjectValidator.cls.xml
===================================================================
diff -u -r48796 -r49297
--- AXimpl/ObjectValidator.cls.xml	(.../ObjectValidator.cls.xml)	(revision 48796)
+++ AXimpl/ObjectValidator.cls.xml	(.../ObjectValidator.cls.xml)	(revision 49297)
@@ -14,10 +14,21 @@
 <FormalSpec>Object:AXif.DataTransferObject,MeldingIndienNietOk:%String="Validate object"</FormalSpec>
 <Implementation><![CDATA[
 	set TmpStorage = ..%New()
-	set TmpStorage.Object = Object
+	set TmpStorage.Object = Object.%ConstructClone(1)
 	
-	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(TmpStorage.%Save(),MeldingIndienNietOk)
+	#dim SaveStatus As %Status = TmpStorage.%Save()
 	
+	if $$$ISERR(SaveStatus) {
+		
+		set XmlStream = ##class(%GlobalCharacterStream).%New()
+		do Object.XMLExportToStream(.XmlStream,,"literal,indent")
+		
+		set Exception = ##class(TECH.Exceptions.StatusException).%New("1000:GeneralError",MeldingIndienNietOk,SaveStatus)
+		do Exception.VoegToeExtraInfo(XmlStream)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+		
+	}
+	
 	do TmpStorage.%DeleteId(TmpStorage.%Oid())
 ]]></Implementation>
 </Method>