Index: vhUnitTest/vhLib/Logger.cls.xml
===================================================================
diff -u -r3533 -r3535
--- vhUnitTest/vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3533)
+++ vhUnitTest/vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3535)
@@ -21,6 +21,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestClearOldLogItemsVanAndereServer">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/display=all","vhUnitTest.vhLib.Logger")</Description>
+<Implementation><![CDATA[
+	#Dim MainIndex As %String = "EenAndereServer" _ "_" _ $$$NSpace
+	#Dim LoggingId As %String = MainIndex _ "||65014||1"
+	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(LoggingId)
+
+	#Dim Logging As vhLib.Logging = ..MaakLogging(MainIndex, "EenAndereServer")
+	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingD(MainIndex,65014,1)) )
+	Do ..AssertLoggingGetalIndexAanwezig(Logging.%Id())
+
+	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - 65014) - 1
+	Do ##class(vhLib.Logger).ClearOldLogItems(9999,9999,9999,AantalDagenSinds20190101)
+	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,65014,1)) )
+]]></Implementation>
+</Method>
+
 <Method name="VerwijderLoggingIndienNogAanwezigVanVorigeRun">
 <FormalSpec>LoggingId:%String</FormalSpec>
 <Private>1</Private>
@@ -32,7 +50,7 @@
 </Method>
 
 <Method name="MaakLogging">
-<FormalSpec>MainIndex:%String</FormalSpec>
+<FormalSpec>MainIndex:%String,Server=""</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhLib.Logging</ReturnType>
 <Implementation><![CDATA[
@@ -45,7 +63,7 @@
 	Set Logging.MainIndex = MainIndex
 	Set Logging.SubID = "1"
 	Set Logging.Groep = "Een groep"
-	Set Logging.Server = $$$Server
+	Set Logging.Server = $Select(Server="":$$$Server, 1:Server)
 	Set Logging.Namespace = $$$NSpace
 	Do Logging.Save()
 	Quit Logging