Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r323 -r330
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 323)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 330)
@@ -202,7 +202,7 @@
 
 <Method name="Create">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>oLogger:vhLib.Logger,Datum,Tijd,Niveau:%String,Groep:%String,Actie:%String,Detail:%String,ProgLabel:%String,SendMail:%String=0</FormalSpec>
+<FormalSpec>oLogger:vhLib.Logger,Datum:%Date,Tijd:%Time,Niveau:%String,Groep:%String,Actie:%String,Detail:%String,ProgLabel:%String,SendMail:%String=0</FormalSpec>
 <Implementation><![CDATA[
 	Set oLog=..%New()
 	Do oLog.Init(.Datum,.Tijd,.Niveau,.Groep,.Actie,.Detail,.ProgLabel)
@@ -237,7 +237,7 @@
 </Method>
 
 <Method name="Init">
-<FormalSpec>Datum,Tijd,Niveau:%String,Groep:%String="",Actie:%String,Detail:%CacheString="",ProgLabel:%String</FormalSpec>
+<FormalSpec>Datum:%Date,Tijd:%Time,Niveau:%String,Groep:%String="",Actie:%String,Detail:%CacheString="",ProgLabel:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..Datum = $S($G(Datum)="":+$H,1:Datum)
 	Set ..Tijd = $S($G(Tijd)="":$P($H,",",2),1:Tijd)
@@ -253,9 +253,11 @@
 	set ..Gebruiker = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
 	set ..SessionID = ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()
 	If ..SessionID '= "" {
-		Try{
+		Try {
 			Set ..ClientAdres = ##class(APPS.algemeen.VhintraShell.SessionService).%New().GeefClientAdresVoorSessieSleutel(..SessionID)
-		}Catch(E){}
+		} Catch	{
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		}
 	}
 
 	if $IsObject(Detail) { set ..Info = Detail }
@@ -278,7 +280,7 @@
 <Description>
 Set oLog=##class(vhLib.Logging).AddErrorToLog(Groep,Actie,Error,Detail)</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Groep:%String,Actie:%String,Error,Detail:%String,blnSendMail:%Boolean=1</FormalSpec>
+<FormalSpec>Groep:%String,Actie:%String,Error:%String,Detail:%String,blnSendMail:%Boolean=1</FormalSpec>
 <ReturnType>Logging</ReturnType>
 <Implementation><![CDATA[
 	Set Logging=..Create(,,"E",.Groep,.Actie,$G(Detail)_"~"_$$ParseStatus^vhLib.System(Error),$STACK($STACK-2,"PLACE"))
@@ -342,15 +344,7 @@
 
 <Method name="CleanOld">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Dagen</FormalSpec>
-<Implementation><![CDATA[
-	/*
-	 Set TotDatum=$H-Dagen
-	 Set Datum=""
-	 For  Set Datum=$O($$$StorageGlobal(Datum)) Quit:Datum=""   Quit:Datum>TotDatum  Do
-	 . Kill $$$StorageGlobal(Datum)
-	*/
-]]></Implementation>
+<FormalSpec>Dagen:%Integer</FormalSpec>
 </Method>
 
 <Method name="CleanOldBetween">
@@ -359,19 +353,6 @@
 startH en StopH zijn inclusief, ze worden dus ook verwijderd uit de global.</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>StartH:%Integer,StopH:%Integer,blnCheckEmpty:%Boolean=1</FormalSpec>
-<Implementation><![CDATA[
-	/* 
-	
-	#define NoSubNodes(%v)   ($D(%v)<10)
-	Set Datum=StartH-1
-	If blnCheckEmpty Do
-	. For  Set Datum=$O($$$StorageGlobal(Datum)) Quit:(Datum="")  Quit:(Datum>StopH)  Kill:($$$NoSubNodes($$$StorageGlobal(Datum))) $$$StorageGlobal(Datum)
-	Else  Do
-	. For  Set Datum=$O($$$StorageGlobal(Datum)) Quit:(Datum="")  Quit:(Datum>StopH)  Kill $$$StorageGlobal(Datum)
-	Quit
-	
-	*/
-]]></Implementation>
 </Method>
 
 <Method name="CollectLogs">