Index: vhLib/LoggingGetalIndex.cls.xml
===================================================================
diff -u -r3555 -r3795
--- vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3555)
+++ vhLib/LoggingGetalIndex.cls.xml	(.../LoggingGetalIndex.cls.xml)	(revision 3795)
@@ -32,11 +32,9 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ID:%String</FormalSpec>
 <Implementation><![CDATA[
-	#Dim Index As vhLib.LoggingGetalIndex = ##class(vhLib.LoggingGetalIndex).%OpenId(ID)
-	If $IsObject(Index) {
-		#Dim Getal As %Numeric = Index.Getal
-		#Dim LoggingId As %String = Index.LoggingGetObjectId()
-		Kill ^LOG.vhLib.LoggingGetalIndexD(Getal, LoggingId)
+	If ##class(vhLib.LoggingGetalIndex).%ExistsId(ID) {
+		#dim sc As %Status = ##class(vhLib.LoggingGetalIndex).%DeleteId(ID)
+		Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Fout bij VerwijderLoggingGetalIndex voor ID '"_ID_"'.")
 	}
 ]]></Implementation>
 </Method>