Index: TECH/Background/impl/BackgroundJob.cls.xml
===================================================================
diff -u -r2181 -r2184
--- TECH/Background/impl/BackgroundJob.cls.xml	(.../BackgroundJob.cls.xml)	(revision 2181)
+++ TECH/Background/impl/BackgroundJob.cls.xml	(.../BackgroundJob.cls.xml)	(revision 2184)
@@ -12,6 +12,7 @@
 <Method name="StartTask">
 <Abstract>1</Abstract>
 <ClassMethod>1</ClassMethod>
+<FormalSpec>SessieID:%String=""</FormalSpec>
 <Private>1</Private>
 </Method>
 
@@ -22,11 +23,15 @@
 <Implementation><![CDATA[
 	Lock +$$$BackgroundJobGlobal(..%ClassName(1)):0
 	if $TEST {
+		#dim SessieID As %String = "TECH.Background_"_$Job
+		do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID(SessieID)
+		do ##class(vhLib.Logger).%New("TECH.Background").Info("Monitor started",..%ClassName(1))
 		set $$$BackgroundJobGlobal(..%ClassName(1) )= $$$BackgroundJobStarted
 		while '..IsStopped() {
-			Do ..StartTask()	
+			Do ..StartTask(SessieID)	
 			Hang ..#HangTime
 		}
+		do ##class(vhLib.Logger).%New("TECH.Background").Info("Monitor stopped",..%ClassName(1))
 		set $$$BackgroundJobGlobal(..%ClassName(1)) = $$$BackgroundJobStopped
 	}
 	Lock -$$$BackgroundJobGlobal(..%ClassName(1))
Index: vhLib/Thread.mac.rou
===================================================================
diff -u -r1859 -r2184
--- vhLib/Thread.mac.rou	(.../Thread.mac.rou)	(revision 1859)
+++ vhLib/Thread.mac.rou	(.../Thread.mac.rou)	(revision 2184)
@@ -1,5 +1,14 @@
 #include vhLib.Macro
 
+ClassMethodSessie(SessieID,ClassName,Method,NrOfParam,P1,P2,P3,P4,P5,P6,P7,P8)
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID(SessieID)
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID($$$SystemUser)
+	
+	do ##class(vhLib.Logging).%New("TECH.Background").Info("Executing",ClassName_":"_Method)
+	do ClassMethod^vhLib(ClassName,Method,.NrOfParam,.P1,.P2,.P3,.P4,.P5,.P6,.P7,.P8)
+	quit
+
+
 ClassMethod(ClassName,Method,NrOfParam,P1,P2,P3,P4,P5,P6,P7,P8)
 	do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID($$$SystemUser)
 	do ClassMethod^vhLib(ClassName,Method,.NrOfParam,.P1,.P2,.P3,.P4,.P5,.P6,.P7,.P8)
Index: vhUnitTest/TECH/Background/impl/BackgroundJobMgr/IsBackgroundJobActief/BackgroundJob.cls.xml
===================================================================
diff -u -r1091 -r2184
--- vhUnitTest/TECH/Background/impl/BackgroundJobMgr/IsBackgroundJobActief/BackgroundJob.cls.xml	(.../BackgroundJob.cls.xml)	(revision 1091)
+++ vhUnitTest/TECH/Background/impl/BackgroundJobMgr/IsBackgroundJobActief/BackgroundJob.cls.xml	(.../BackgroundJob.cls.xml)	(revision 2184)
@@ -5,6 +5,7 @@
 
 <Method name="StartTask">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>SessieID:%String</FormalSpec>
 <Private>1</Private>
 </Method>
 </Class>
Index: TECH/PubSub/WachtendeEventVerwerkerMonitor.cls.xml
===================================================================
diff -u -r1861 -r2184
--- TECH/PubSub/WachtendeEventVerwerkerMonitor.cls.xml	(.../WachtendeEventVerwerkerMonitor.cls.xml)	(revision 1861)
+++ TECH/PubSub/WachtendeEventVerwerkerMonitor.cls.xml	(.../WachtendeEventVerwerkerMonitor.cls.xml)	(revision 2184)
@@ -5,10 +5,9 @@
 
 <Method name="StartTask">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>SessieID:%String=""</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID($$$SystemUser)
-	do ##class(TECH.PubSub.WachtendeEventVerwerker).VerwerkAlle()
+<Implementation><![CDATA[	Job ClassMethodSessie^vhLib.Thread(SessieID,"TECH.PubSub.WachtendeEventVerwerker","VerwerkAlle")
 ]]></Implementation>
 </Method>
 </Class>