Index: svn/Logger.cls.xml
===================================================================
diff -u -r1831 -r1832
--- svn/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1831)
+++ svn/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1832)
@@ -113,7 +113,7 @@
 		/// zodat zeker niet gecommit wordt met een lege filename en een commit all zou gebeuren!
 		Set IsBestaandBestand = ..IsBestaandBestand(FullPath)
 		If IsBestaandBestand {
-			Do ..CommitBestand(FullPath, Message)
+			Do ..CommitBestand(Server, FullPath, Message)
 		}
 	}
 	
@@ -244,7 +244,7 @@
 </Method>
 
 <Method name="CommitBestand">
-<FormalSpec>FullPath:%String,Message:%String</FormalSpec>
+<FormalSpec>Server:%String,FullPath:%String,Message:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If ..IsTeAdden {
@@ -253,7 +253,7 @@
 	
 	Set ..svnCommand.LocalWorkspace = FullPath
 	Set ..svnCommand.File = FullPath_..#Filename
-	Set ..svnCommand.Message = "GetLatest met als resultaat: "_Message
+	Set ..svnCommand.Message = "*** "_##class(TECH.StringUtils).ToUpper(Server)_": GetLatest met als resultaat: '"_Message_"'."
 	Set ..svnCommand.SubCommand = "commit"
 	Do ..svnCommand.GlobalOptions.SetAt(..GetUsername(),"--username")
 	Do ..svnCommand.GlobalOptions.SetAt("fixed","--password")