Index: svn/Helper.cls.xml
===================================================================
diff -u -r1805 -r1809
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1805)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1809)
@@ -401,7 +401,7 @@
 	#dim FailedCharacterStream As %GlobalCharacterStream = ..GeefFailedCharacterStream(Actie)
 	while 'FailedCharacterStream.AtEnd
 	{
-		write FailedCharacterStream.ReadLine(),!
+		Do ..Write(FailedCharacterStream.ReadLine())
 	}
 ]]></Implementation>
 </Method>
@@ -559,12 +559,20 @@
 		Do ..Failed.Clear()
 	}
 	else {
-		write "GetLatest wordt niet uitgevoerd : ",!
-		write BezwarenTegenGetLatest,!
+		Do ..Write("GetLatest wordt niet uitgevoerd : ")
+		Do ..Write(BezwarenTegenGetLatest)
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="Write">
+<FormalSpec>Message:%String</FormalSpec>
+<Implementation><![CDATA[
+	Write Message, !
+	Do ..LogMessage(Message)
+]]></Implementation>
+</Method>
+
 <Method name="VoerUitGetLatest">
 <Implementation><![CDATA[
 	Set ..IsGetLatestGefaald = 0
@@ -688,11 +696,25 @@
 	set $piece(Streepkes,"-",$length(Message)+3)="+"
 	
 	write !,Streepkes,!,"| "_Message_" |",!,Streepkes,!
-	
+	Do ..LogMessage(Message)
 	quit
 ]]></Implementation>
 </Method>
 
+<Method name="LogMessage">
+<FormalSpec>Message:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DateTimeAPI As TECH.DateTime.DateTimeAPI =  ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	#dim TimeStamp As %TimeStamp = DateTimeAPI.CurrentTimeStamp()_"."_$piece(DateTimeAPI.CurrentHorolog(6),".",2)
+	
+	#dim LogMessage As svn.Helper.LogMessage = ##class(svn.Helper.LogMessage).%New()
+	Set LogMessage.TimeStamp = TimeStamp
+	Set LogMessage.Message = Message
+	Do LogMessage.%Save()
+]]></Implementation>
+</Method>
+
 <Method name="Conflicten">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>