Index: vhLib/LoggingGetalIndex.cls.xml
===================================================================
diff -u -r3520 -r3532
--- vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3520)
+++ vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3532)
@@ -21,6 +21,24 @@
 <Unique>1</Unique>
 </Index>
 
+<Method name="BewaarIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Logging:vhLib.Logging,Getal:%Integer</FormalSpec>
+<Implementation><![CDATA[	Set ^LOG.vhLib.LoggingGetalIndexD(Getal, Logging.%Id()) = ""
+]]></Implementation>
+</Method>
+
+<Method name="VerwijderLoggingGetalIndex">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#Dim Index As vhLib.LoggingGetalIndex = ##class(vhLib.LoggingGetalIndex).%OpenId(ID)
+	#Dim Getal As %Numeric = Index.Getal
+	#Dim LoggingId As %String = Index.LoggingGetObjectId()
+	Kill ^LOG.vhLib.LoggingGetalIndexD(Getal, LoggingId)
+]]></Implementation>
+</Method>
+
 <Method name="BouwOp">
 <Description>
 Do ##class(vhLib.LoggingGetalIndex).BouwOp()</Description>
@@ -72,12 +90,7 @@
 	For {
 		Set Getal=$Order(GevondenGetallen(Getal)) 
 		Quit:(""=Getal)
-		If (Getal>1000) {
-		Set Idx = ##class(vhLib.LoggingGetalIndex).%New()
-		Set Idx.Logging = Logging
-		Set Idx.Getal = Getal
-			Do Idx.%Save()
-		}
+		Do:(Getal>=1000) ..BewaarIndex(Logging, Getal)
 	}
 ]]></Implementation>
 </Method>
@@ -108,18 +121,11 @@
 	Set IdsToDeleteIterator = ##class(TECH.ListIterator).%New( LoggingGetalIndexesToDelete )
 	While IdsToDeleteIterator.HasNext() {
 		Set IdToDelete = IdsToDeleteIterator.Next()
-		Set ObjectToDelete = ##class(vhLib.LoggingGetalIndex).%DeleteId(IdToDelete)
+		Do ..VerwijderLoggingGetalIndex(IdToDelete)
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="VerwijderLoggingGetalIndex">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ID:%String</FormalSpec>
-<Implementation><![CDATA[	w ##class(vhLib.LoggingGetalIndex).%DeleteId(ID), !
-]]></Implementation>
-</Method>
-
 <Storage name="VHOpslag">
 <Type>%CacheSQLStorage</Type>
 <StreamLocation>^LOG.vhLib.LoggingGetalIndexS</StreamLocation>