Index: vhLib/LogOpkuiser.cls.xml
===================================================================
diff -u -r3803 -r3804
--- vhLib/LogOpkuiser.cls.xml	(.../LogOpkuiser.cls.xml)	(revision 3803)
+++ vhLib/LogOpkuiser.cls.xml	(.../LogOpkuiser.cls.xml)	(revision 3804)
@@ -135,12 +135,12 @@
 		}
 	}
 	
-	Do:(LoggingIdsToDelete.Count() > 0) ..Logger.Info("VerwijderLogRecords", "'" _ AantalGewist _ "' gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'; Eerste ID='"_EersteIdGewist_"' LaatsteID='"_LaatsteIdGewist_"'.")
+	Do:(LoggingIdsToDelete.Count() > 0) ..Logger.Info("VerwijderLogRecords", "'" _ AantalGewist _ "' items gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'; Eerste ID='"_EersteIdGewist_"' LaatsteID='"_LaatsteIdGewist_"'.")
 	
 	If ExceptionList.Count() > 0 {
 		Set OmvattendeException = ##class(TECH.Exceptions.GeneralErrorException).%New("Error bij VerwijderLogRecords. Aantal fouten: "_ExceptionList.Count() _$$$If(ContinueLoopToDelete, "", " (While-loop afgebroken, want max aantal fouten bereikt).") )
 		Do OmvattendeException.ZetInnerExcepties(ExceptionList)
-		Do OmvattendeException.VoegToeExtraInfo("'" _ AantalGewist _ "' items reeds gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "'.")
+		Do OmvattendeException.VoegToeExtraInfo("'" _ AantalGewist _ "' items reeds gewist voor datum '" _ Datum _ "', Niveau '" _ Niveau _ "';  Eerste ID='"_EersteIdGewist_"' LaatsteID='"_LaatsteIdGewist_"'.")
 		Do ..Logger.ErrorMail("VerwijderLogRecords", OmvattendeException.ToStream())
 	}