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))