Index: AXimpl/ObjectValidator.cls.xml
===================================================================
diff -u -r48773 -r48796
--- AXimpl/ObjectValidator.cls.xml	(.../ObjectValidator.cls.xml)	(revision 48773)
+++ AXimpl/ObjectValidator.cls.xml	(.../ObjectValidator.cls.xml)	(revision 48796)
@@ -11,12 +11,12 @@
 </Property>
 
 <Method name="Validate">
-<FormalSpec>Object:AXif.DataTransferObject</FormalSpec>
+<FormalSpec>Object:AXif.DataTransferObject,MeldingIndienNietOk:%String="Validate object"</FormalSpec>
 <Implementation><![CDATA[
 	set TmpStorage = ..%New()
 	set TmpStorage.Object = Object
 	
-	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(TmpStorage.%Save())
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(TmpStorage.%Save(),MeldingIndienNietOk)
 	
 	do TmpStorage.%DeleteId(TmpStorage.%Oid())
 ]]></Implementation>
Index: vhTest/Mock/AXimpl/ObjectValidator.cls.xml
===================================================================
diff -u -r48773 -r48796
--- vhTest/Mock/AXimpl/ObjectValidator.cls.xml	(.../ObjectValidator.cls.xml)	(revision 48773)
+++ vhTest/Mock/AXimpl/ObjectValidator.cls.xml	(.../ObjectValidator.cls.xml)	(revision 48796)
@@ -9,8 +9,8 @@
 <Inheritance>right</Inheritance>
 
 <Method name="Validate">
-<FormalSpec>Object:AXif.DataTransferObject</FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("Validate",Object)
+<FormalSpec>Object:AXif.DataTransferObject,MeldingIndienNietOk:%String="Validate object"</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Validate",Object,MeldingIndienNietOk)
 ]]></Implementation>
 </Method>
 
Index: AXimpl/RequestComposer.cls.xml
===================================================================
diff -u -r48773 -r48796
--- AXimpl/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 48773)
+++ AXimpl/RequestComposer.cls.xml	(.../RequestComposer.cls.xml)	(revision 48796)
@@ -51,7 +51,7 @@
 	set Envelope.Header.Action = ..ConfigOut.GetAction(Request)
 	set Envelope.Body.MessageParts = ..ConfigOut.GetConverter(Request).Convert(Request,MessageId)
 	
-	do ..ObjectValidator.Validate(Envelope)
+	do ..ObjectValidator.Validate(Envelope,"Validatie AX request : "_Envelope.Header.Action)
 	
 	quit Envelope
 ]]></Implementation>