Index: TECH/Error/impl/ErrorHandler.cls.xml
===================================================================
diff -u -r1537 -r2426
--- TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 1537)
+++ TECH/Error/impl/ErrorHandler.cls.xml	(.../ErrorHandler.cls.xml)	(revision 2426)
@@ -50,7 +50,7 @@
 	Set Error.ErrorCode=$ZERROR
 	
 	Set Error.TrapHandler=$ETrap
-	Set:$G(%objlasterror)'="" Error.ObjectLastError=$$ParseStatus^vhLib(%objlasterror)
+	Set:$G(%objlasterror)'="" Error.ObjectLastError=$$ParseStatus^vhLib.System(%objlasterror)
 	
 	if ( Error.ErrorCode["TECH.ExceptionHandler") && ($data(%Exception)) && ($isObject(%Exception) ) {
 		
@@ -144,7 +144,7 @@
 	#dim sc As %Status = $$SendMiniMailForced^vhLib.Mail(From,To,Subj,Body,1,,,,)
 	
 	If $$$ISERR(sc) {
-		Do ..CrashDuringErrorHandling($$ParseStatus^vhLib(sc))
+		Do ..CrashDuringErrorHandling($$ParseStatus^vhLib.System(sc))
 	}
 	
 	Quit
@@ -161,7 +161,7 @@
 		|| (Exceptie.GeefExceptionCode() = ##class(TECH.enu.ExceptionCode).InvalidUserInput()) 
 	{
 		Set LogLevel = ##class(vhLib.enu.LogNiveau).Warning()
-	}ElseIf (Exceptie.%Extends(##class(APPS.algemeen.VhintraShell.exc.AuthenticationException).%ClassName(1)) && ..IsGebruikerIngelogdViaTerminalService(Exceptie))
+	}ElseIf (Exceptie.%Extends("APPS.algemeen.VhintraShell.exc.AuthenticationException") && ..IsGebruikerIngelogdViaTerminalService(Exceptie))
 	{
 		Set LogLevel = ##class(vhLib.enu.LogNiveau).Warning()
 	}
@@ -171,7 +171,7 @@
 
 <Method name="IsGebruikerIngelogdViaTerminalService">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Exceptie:APPS.algemeen.VhintraShell.exc.AuthenticationException</FormalSpec>
+<FormalSpec>Exceptie:TECH.Exceptions.Exception</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[