Index: vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml
===================================================================
diff -u -r35386 -r35387
--- vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 35386)
+++ vhUnitTest/AXimpl/AifMessage/EventHandler/ResponseLogger/Log/Test.cls.xml	(.../Test.cls.xml)	(revision 35387)
@@ -40,6 +40,8 @@
 
 <Method name="Test: Foutief gedrag">
 <Implementation><![CDATA[
+	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
+	
 	#dim StoredMessage As AXdata.AifMessage.Message = ..GetStoredMessage()
 	set MessageRepositoryStub = ##class(vhTest.Mock.AX.AifMessage.MessageRepository).%New()
 	do MessageRepositoryStub.IndienMethodCall("GeefViaRequestGuid","{123456-ABC-1234567}").DanReturn(StoredMessage)
@@ -68,6 +70,7 @@
 	do $$$AssertEquals(FailedMessage.Message,StoredMessage)
 	do $$$AssertEquals(FailedMessage.Error.Code,"Error")
 	do $$$AssertEquals(FailedMessage.Error.Detail,"ErrorDetail")
+	do $$$AssertEquals(FailedMessage.TimeStamp,"2011-06-30 09:15:00")
 	
 	do FailedMessageRepositoryMock.Verifieer()
 ]]></Implementation>
Index: AXimpl/AifMessage/EventHandler/ResponseLogger.cls.xml
===================================================================
diff -u -r35386 -r35387
--- AXimpl/AifMessage/EventHandler/ResponseLogger.cls.xml	(.../ResponseLogger.cls.xml)	(revision 35386)
+++ AXimpl/AifMessage/EventHandler/ResponseLogger.cls.xml	(.../ResponseLogger.cls.xml)	(revision 35387)
@@ -53,6 +53,7 @@
 	if $length(Message.Body.MessageParts.Fault.Code) {
 		#dim FailedMessage As AXdata.AifMessage.FailedMessage = ..FailedMessageRepository.Maak()
 		set FailedMessage.Message = Data
+		set FailedMessage.TimeStamp = ..DateTimeAPI.CurrentTimeStamp()
 		set FailedMessage.Error.Code = Message.Body.MessageParts.Fault.Code
 		set FailedMessage.Error.Detail = Message.Body.MessageParts.Fault.Detail.FaultMessageList.GetAt(1).FaultMessage.GetAt(Message.Body.MessageParts.Fault.Code)
 		do ..FailedMessageRepository.Bewaar(FailedMessage)
Index: AXdata/AifMessage/FailedMessage.cls.xml
===================================================================
diff -u -r35386 -r35387
--- AXdata/AifMessage/FailedMessage.cls.xml	(.../FailedMessage.cls.xml)	(revision 35386)
+++ AXdata/AifMessage/FailedMessage.cls.xml	(.../FailedMessage.cls.xml)	(revision 35387)
@@ -14,6 +14,11 @@
 <Required>1</Required>
 </Property>
 
+<Property name="TimeStamp">
+<Type>%TimeStamp</Type>
+<Required>1</Required>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^AXdata.AifMeD12B.FailedMessageD</DataLocation>
@@ -31,6 +36,9 @@
 <Value name="3">
 <Value>Error</Value>
 </Value>
+<Value name="4">
+<Value>TimeStamp</Value>
+</Value>
 </Data>
 </Storage>
 </Class>