Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r690 -r744
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 690)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 744)
@@ -22,7 +22,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	if '$length(Groep) set Groep =  ##class(TECH.Context.RuntimeContext).Instance().Applicatie
+	#dim Applicatie As %String = ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie()
+	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"
 	Set ..Groep = Groep 
 	Quit $$$OK
 ]]></Implementation>