Index: vhUnitTest/vhLib/Logger.cls.xml
===================================================================
diff -u -r3535 -r3537
--- vhUnitTest/vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3535)
+++ vhUnitTest/vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 3537)
@@ -3,21 +3,33 @@
 <Class name="vhUnitTest.vhLib.Logger">
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="OudeHorolog">
+<Type>%String</Type>
+<Default>63189</Default>
+</Parameter>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Begin 2015. Oud genoeg om niet te interfereren met actuele echte logging-records.
+
+]]></Content>
+</UDLText>
+
 <Method name="TestClearOldLogItemsMetGetalIndex">
 <Description>
 do ##class(vhUnitTest.Manager).RunTest("/display=all","vhUnitTest.vhLib.Logger")</Description>
 <Implementation><![CDATA[
 	#Dim MainIndex As %String = $$$Server _ "_" _ $$$NSpace
-	#Dim LoggingId As %String = MainIndex _ "||65014||1"
+	#Dim LoggingId As %String = MainIndex _ "||" _ ..#OudeHorolog _ "||1"
 	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(LoggingId)
 
 	#Dim Logging As vhLib.Logging = ..MaakLogging(MainIndex)
-	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingD(MainIndex,65014,1)) )
+	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,1)) )
 	Do ..AssertLoggingGetalIndexAanwezig(Logging.%Id())
 
-	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - 65014) - 1
+	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - ..#OudeHorolog) - 1
 	Do ##class(vhLib.Logger).ClearOldLogItems(9999,9999,9999,AantalDagenSinds20190101)
-	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,65014,1)) )
+	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,1)) )
 ]]></Implementation>
 </Method>
 
@@ -26,16 +38,16 @@
 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"
+	#Dim LoggingId As %String = MainIndex _ "||" _ ..#OudeHorolog _ "||1"
 	Do ..VerwijderLoggingIndienNogAanwezigVanVorigeRun(LoggingId)
 
 	#Dim Logging As vhLib.Logging = ..MaakLogging(MainIndex, "EenAndereServer")
-	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingD(MainIndex,65014,1)) )
+	Do $$$AssertEquals( 1, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,1)) )
 	Do ..AssertLoggingGetalIndexAanwezig(Logging.%Id())
 
-	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - 65014) - 1
+	#Dim AantalDagenSinds20190101 = ($Piece($Horolog,",",1) - ..#OudeHorolog) - 1
 	Do ##class(vhLib.Logger).ClearOldLogItems(9999,9999,9999,AantalDagenSinds20190101)
-	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,65014,1)) )
+	Do $$$AssertEquals( 0, $Data(^LOG.vhLib.LoggingD(MainIndex,..#OudeHorolog,1)) )
 ]]></Implementation>
 </Method>
 
@@ -55,7 +67,7 @@
 <ReturnType>vhLib.Logging</ReturnType>
 <Implementation><![CDATA[
 	#Dim Logging As vhLib.Logging = ##class(vhLib.Logging).%New()
-	Set Logging.Datum = 65014 // =2019-01-01: ver genoeg in het verleden om niet met echte logging te mixen.
+	Set Logging.Datum = ..#OudeHorolog
 	set Logging.Tijd = 0 // Middernacht.
 	Set Logging.Detail = "Een logging detail met 1000 of zelfs 2000 getallen."
 	Set Logging.Actie = "Een actie"