Index: vhPowerTools/TECH/CacheProces.cls.xml
===================================================================
diff -u -r42003 -r42839
--- vhPowerTools/TECH/CacheProces.cls.xml	(.../CacheProces.cls.xml)	(revision 42003)
+++ vhPowerTools/TECH/CacheProces.cls.xml	(.../CacheProces.cls.xml)	(revision 42839)
@@ -13,9 +13,14 @@
 	While (ProcessIdIterator.HasNext()) {
 		#dim ProcessID As %String = ProcessIdIterator.Next()
 		Write !,"Process "_$J(ProcessID,6)_" -  "
-		; TO DO : Try-Catch toevoegen 
-		Write ..GeefProcessInfo(ProcessID)_" "
-	 	Do ..KillCacheProcess(ProcessID)
+		Try {
+			Write ..GeefProcessInfo(ProcessID)_" "
+		 	Do ..KillCacheProcess(ProcessID)
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do ##class(vhLib.Logger).LogExceptie(Exception)
+			Write "Error : "_Exception.GeefOmschrijving() , !
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -28,7 +33,7 @@
 <Implementation><![CDATA[
 	#dim sc As %Status = ""
 	#dim cProcess As %SYS.ProcessQuery = ##CLASS(%SYS.ProcessQuery).Open(ProcessID,,.sc)
-	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Unable to open Info for ProcessId ''.")
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,"Unable to open Info for ProcessId '"_ProcessID_"'.")
 	Quit $J(cProcess.ClientIPAddress,16)_$$$TAB_##class(TECH.StringUtils).AddTrailingSpace(cProcess.PrincipalDevice,45)_$$$TAB_$J(cProcess.State,5)_$$$TAB_cProcess.CurrentLineAndRoutine
 ]]></Implementation>
 </Method>