Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r1438 -r1494
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1438)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1494)
@@ -11,6 +11,11 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="LoggingAPI">
+<Type>TECH.Logging.LoggingAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Description><![CDATA[
 This callback method is invoked by the <METHOD>%New</METHOD> method to 
@@ -23,6 +28,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	#dim Applicatie As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie()
+	Set ..LoggingAPI = ##class(TECH.Context).Instance().GeefLoggingAPI()
 	if '$length(Applicatie) && $length(Groep) do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie(Groep)
 	if '$length(Groep) set Groep =  ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie()
 	if '$length(Groep) set Groep = "undefined"
@@ -70,10 +76,7 @@
 <Method name="AddToLog">
 <FormalSpec>Niveau:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0</FormalSpec>
 <ReturnType>Logging</ReturnType>
-<Implementation><![CDATA[
-	
-	#dim Logging As vhLib.Logging =##class(vhLib.Logging).Create(%this,,,.Niveau,..Groep,.Actie,.Detail,,.blnSendMail)
-	Quit Logging
+<Implementation><![CDATA[	Quit ..LoggingAPI.MaakLogItem(Niveau,..Groep,Actie,Detail,blnSendMail,%this)
 ]]></Implementation>
 </Method>
 
Index: TECH/Logging/LoggingAPI.cls.xml
===================================================================
diff -u
--- TECH/Logging/LoggingAPI.cls.xml	(revision 0)
+++ TECH/Logging/LoggingAPI.cls.xml	(revision 1494)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Logging.LoggingAPI">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="MaakLogItem">
+<Abstract>1</Abstract>
+<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
+<ReturnType>vhLib.Logging</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Context.cls.xml
===================================================================
diff -u -r1366 -r1494
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 1366)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 1494)
@@ -67,6 +67,11 @@
 <Default>CmdAPI</Default>
 </Parameter>
 
+<Parameter name="LoggingAPI">
+<Type>%String</Type>
+<Default>LoggingAPI</Default>
+</Parameter>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Context</ReturnType>
@@ -260,6 +265,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLoggingAPI">
+<ReturnType>TECH.Logging.LoggingAPI</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefAPIObject(..#LoggingAPI)
+]]></Implementation>
+</Method>
+
+<Method name="PushLoggingAPIClassName">
+<FormalSpec>Naam:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..PushAPINaam(..#LoggingAPI,Naam)
+]]></Implementation>
+</Method>
+
+<Method name="PopLoggingAPIClassName">
+<Implementation><![CDATA[	Do ..PopAPINaam(..#LoggingAPI)
+]]></Implementation>
+</Method>
+
 <Method name="Reset">
 <Implementation><![CDATA[
 	Set APINamenIterator = ##class(TECH.ListIterator).%New(..APINamen)
@@ -281,6 +303,7 @@
 	Do ..PushSystemAPIClassName(##class(TECH.System.impl.SystemAPI).%ClassName(1))
 	Do ..PushBackgroundJobAPIClassName(##class(TECH.Background.impl.BackgroundJobAPI).%ClassName(1))
 	Do ..PushCmdAPIClassName(##class(TECH.Cmd.impl.CmdAPI).%ClassName(1))
+	Do ..PushLoggingAPIClassName(##class(TECH.Logging.impl.LoggingAPI).%ClassName(1))
 ]]></Implementation>
 </Method>
 
Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r974 -r1494
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 974)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 1494)
@@ -400,50 +400,28 @@
 <Value>Applicatie</Value>
 </Value>
 </Data>
-<Property name="%%CLASSNAME">
-</Property>
-<Property name="Actie">
-</Property>
-<Property name="Applicatie">
-</Property>
-<Property name="ClientAdres">
-</Property>
-<Property name="Datum">
-</Property>
-<Property name="Detail">
-</Property>
-<Property name="DetailAsStream">
-</Property>
-<Property name="DetailTrunc">
-</Property>
-<Property name="Gebruiker">
-</Property>
-<Property name="GebruikerID">
-</Property>
-<Property name="Groep">
-</Property>
-<Property name="JobID">
-</Property>
-<Property name="LessDetail">
-</Property>
-<Property name="MainIndex">
-</Property>
-<Property name="Namespace">
-</Property>
-<Property name="Niveau">
-</Property>
-<Property name="ProgLabel">
-</Property>
-<Property name="RemoteIP">
-</Property>
-<Property name="Server">
-</Property>
-<Property name="SessionID">
-</Property>
-<Property name="SubID">
-</Property>
-<Property name="Tijd">
-</Property>
+<Property name="%%CLASSNAME"/>
+<Property name="Actie"/>
+<Property name="Applicatie"/>
+<Property name="ClientAdres"/>
+<Property name="Datum"/>
+<Property name="Detail"/>
+<Property name="DetailAsStream"/>
+<Property name="DetailTrunc"/>
+<Property name="Gebruiker"/>
+<Property name="GebruikerID"/>
+<Property name="Groep"/>
+<Property name="JobID"/>
+<Property name="LessDetail"/>
+<Property name="MainIndex"/>
+<Property name="Namespace"/>
+<Property name="Niveau"/>
+<Property name="ProgLabel"/>
+<Property name="RemoteIP"/>
+<Property name="Server"/>
+<Property name="SessionID"/>
+<Property name="SubID"/>
+<Property name="Tijd"/>
 </Storage>
 </Class>
 
Index: TECH/Logging/impl/LoggingAPI.cls.xml
===================================================================
diff -u
--- TECH/Logging/impl/LoggingAPI.cls.xml	(revision 0)
+++ TECH/Logging/impl/LoggingAPI.cls.xml	(revision 1494)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Logging.impl.LoggingAPI">
+<Super>TECH.Logging.LoggingAPI,TECH.Mockable</Super>
+
+<Method name="MaakLogItem">
+<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
+<ReturnType>vhLib.Logging</ReturnType>
+<Implementation><![CDATA[
+	#dim Logging As vhLib.Logging = ##class(vhLib.Logging).Create(Logger,,,.Niveau,Groep,.Actie,.Detail,,.blnSendMail)
+	Quit Logging
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>