Index: VHSys/Scheduler/BL/SchedulerAbstract.cls.xml
===================================================================
diff -u -r29059 -r53983
--- VHSys/Scheduler/BL/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 29059)
+++ VHSys/Scheduler/BL/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 53983)
@@ -345,11 +345,14 @@
 	  d WLIP^vhDBG(..#DebugIP,"Schedule started for "_..#SchedulerIDName_". Current process "_$J)
 	Quit:($zobjclassmethod(..#QueueClassName,"GetMaxBusyTasks","")=0)   ; Queue is disabled, MaxBusyTask=0
 	Quit:('..InitJob())
-	  d WL^vhDBG("InitJob done.")
+
 	Do ..Trigger()   ; bij herstart, controleren wat er in de queue zit.   TO DO !!!
+	Set vhLibLogger = ##class(vhLib.Logger).%New(..#SchedulerIDName)
+	Do vhLibLogger.Info("Schedule","Going into Loop-mode; "_$$$If($ZParent>0, "Job started from PID '"_$ZParent_"'", ""))
+
 	Set EndLoop=0
-	  d WL^vhDBG("Going into Loop-mode.")
 	For  Do  Quit:EndLoop
+	. Do:($$$Not($SYSTEM.Event.Defined($$$ClassEvent("NEXT")))) vhLibLogger.Warning("Schedule", "Event '"_$$$ClassEvent("NEXT")_"' bestaat niet meer.")
 	. Set Ok=$SYSTEM.Event.Wait($$$ClassEvent("NEXT"),$$$TimeOutWaitNext)
 	. If $$shdCheckSignalledSTOP()  Set EndLoop=1 Quit
 	. Set QItem=..GetNextTask(1)   ; check for free process is included in this method call