Index: VHSys/Scheduler/BL/SchedulerAbstract.cls.xml
===================================================================
diff -u -r54973 -r66527
--- VHSys/Scheduler/BL/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 54973)
+++ VHSys/Scheduler/BL/SchedulerAbstract.cls.xml	(.../SchedulerAbstract.cls.xml)	(revision 66527)
@@ -281,7 +281,7 @@
 	Quit:($zobjclassmethod(..#QueueClassName,"GetMaxBusyTasks","")=0)   ; Queue is disabled, MaxBusyTask=0
 	Job ClassMethod^vhLib.Thread(..%ClassName(1),"Schedule")   ; ..#ClassNm
 	Set NewPID=$ZCHILD
-	d WLIP^vhDBG(..#DebugIP,"Scheduler "_..#SchedulerIDName_" started (from $J="_$J_") in New PID "_NewPID)
+	;d WLIP^vhDBG(..#DebugIP,"Scheduler "_..#SchedulerIDName_" started (from $J="_$J_") in New PID "_NewPID)
 	Hang 1   ; 1 seconde wachten
 	Quit
 ]]></Implementation>
@@ -307,7 +307,7 @@
 cbtHandleBusyTask()
 	; Possible actions:   Send mail / Increase MaxBusyTime / Set Status to $$$qsError / Kill process / Restart Task (?) / Ignore / ...
 	Set msg="Max. Busy Time overschreden: QItem "_QItem.%Id()_" started on "_QItem.Started_" and is running for "_DeltaT_" seconds ("_$$cbtFormatTime(DeltaT)_")"
-	 d WL^vhDBG(msg)
+	 ;d WL^vhDBG(msg)
 	; TO DO:  other actions ...
 	;  *** Kill the running process.  Else, it might run until eternity   :-P
 	If 0 && QItem.ThreadedPID Do
@@ -352,7 +352,7 @@
 <Implementation><![CDATA[
 #define TimeOutWaitNext   30
 	Set $ZTRAP="shdError"
-	  d WLIP^vhDBG(..#DebugIP,"Schedule started for "_..#SchedulerIDName_". Current process "_$J)
+	  ;d WLIP^vhDBG(..#DebugIP,"Schedule started for "_..#SchedulerIDName_". Current process "_$J)
 	Quit:($zobjclassmethod(..#QueueClassName,"GetMaxBusyTasks","")=0)   ; Queue is disabled, MaxBusyTask=0
 	Quit:('..InitJob())
 
@@ -366,14 +366,14 @@
 	. 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
-	.   d WL^vhDBG("Next QItem to process: "_$S('$IsObject(QItem):"[NONE]", 1:QItem.%Id()))
+	.   ;d WL^vhDBG("Next QItem to process: "_$S('$IsObject(QItem):"[NONE]", 1:QItem.%Id()))
 	. Quit:('$isObject(QItem))
 	. Do ..ProcessTask(QItem)
 	. Set QItem=""   ; Close Task object
 	. Do ..Trigger() ; Belangrijk om onmiddellijk de volgende op te halen
 	; After loop, clean up objects, resources, ...
 	Do ..TerminateJob()
-	d WL^vhDBG("Scheduler "_..#SchedulerIDName_" stopped. Current PID process "_$J)
+	;d WL^vhDBG("Scheduler "_..#SchedulerIDName_" stopped. Current PID process "_$J)
 	Do:($SYSTEM.Event.Defined($$$ClassEvent("STOPPED"))) $SYSTEM.Event.Signal($$$ClassEvent("STOPPED"))
 	Set $ZTRAP=""
 	Quit
@@ -464,10 +464,10 @@
 <Implementation><![CDATA[
 	If (QItem.RunMode=$$$rmInLine)&&($L(QItem.SignalPID))&&(QItem.SignalPID'=$J) Do  Quit
 	. Do:(1) ..PreProcessTask(QItem)
-	.  d WL^vhDBG("InLine task: Signal PID "_QItem.SignalPID_" to start processing (from process "_$J_") .")
+	.  ;d WL^vhDBG("InLine task: Signal PID "_QItem.SignalPID_" to start processing (from process "_$J_") .")
 	. Set Ok=$SYSTEM.Event.Signal(QItem.SignalPID)
 	; Else 
-	  d WL^vhDBG("Start processing Task in current Job "_$J)
+	  ;d WL^vhDBG("Start processing Task in current Job "_$J)
 	Do:(QItem.RunMode'=$$$rmInLine) ..PreProcessTask(QItem)
 	Set blnJobbed=..StartProcessTask(QItem,.sc)
 	Do:('blnJobbed) ..PostProcessTask(QItem,.sc)   ; (QItem.%Id())
Index: VHSys/Scheduler/TaskAbstract.cls.xml
===================================================================
diff -u -r29059 -r66527
--- VHSys/Scheduler/TaskAbstract.cls.xml	(.../TaskAbstract.cls.xml)	(revision 29059)
+++ VHSys/Scheduler/TaskAbstract.cls.xml	(.../TaskAbstract.cls.xml)	(revision 66527)
@@ -65,7 +65,7 @@
 	;Quit ##class(BL.Sys.FOP.Data).TaskUpdateStatus(%this, .NewStatus, .blnSaveObj)
 	Set ..Status=NewStatus
 	Set sc=$S((blnSaveObj)&&($L(..%Id())):..%Save(), 1:$$$OK)
-	  d WLIP^vhDBG(97,"Task.UpdateStatus : "_NewStatus_"  "_$$ParseStatus^vhLib(sc))
+	  ;d WLIP^vhDBG(97,"Task.UpdateStatus : "_NewStatus_"  "_$$ParseStatus^vhLib(sc))
 	Quit sc
 ]]></Implementation>
 </Method>
Index: VHSys/Scheduler/Logging.cls.xml
===================================================================
diff -u -r63762 -r66527
--- VHSys/Scheduler/Logging.cls.xml	(.../Logging.cls.xml)	(revision 63762)
+++ VHSys/Scheduler/Logging.cls.xml	(.../Logging.cls.xml)	(revision 66527)
@@ -211,7 +211,7 @@
 </Method>
 
 <Method name="Debug">
-<Implementation><![CDATA[	Do WLIP^vhDBG(..#DebugIP,"Log ->Niv:"_..Niveau_" Groep:"_..Groep_$S($L(..Actie):" Actie:"_..Actie,1:"")_$S($L(..Detail):" Detail:"_..Detail,1:"")_$S($L(..ProgLabel):" ProgLabel:"_..ProgLabel,1:""))
+<Implementation><![CDATA[	;Do WLIP^vhDBG(..#DebugIP,"Log ->Niv:"_..Niveau_" Groep:"_..Groep_$S($L(..Actie):" Actie:"_..Actie,1:"")_$S($L(..Detail):" Detail:"_..Detail,1:"")_$S($L(..ProgLabel):" ProgLabel:"_..ProgLabel,1:""))
 ]]></Implementation>
 </Method>