Index: TECH/Context.cls.xml
===================================================================
diff -u -r2870 -r2911
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 2870)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 2911)
@@ -110,6 +110,7 @@
 	If ($G(%TECHContext) = "") || ('$IsObject(%TECHContext)) || ('%TECHContext.%ClassIsLatestVersion())
 	{
 		Set %TECHContext = ..%New()
+		Do %TECHContext.Init()
 	}
 	Quit %TECHContext
 ]]></Implementation>
@@ -119,10 +120,15 @@
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..InitAPIStacks()
 	Do ..Reset()
-	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -132,10 +138,15 @@
 	#dim Class As %CompiledClass = ##class(%CompiledClass).%OpenId(..%ClassName(1))
 	set itParameters = ##class(TECH.ListIterator).%New(Class.Parameters)
 	while itParameters.HasNext() {
-		#dim Parameter As %CompiledParameter = itParameters.Next()
-		if ##class(TECH.StringUtils).EndsWith(Parameter.Name,"API") {
-			Do ..InitAPIStack(Parameter.Default)
-		}		
+		Try {
+			#dim Parameter As %CompiledParameter = itParameters.Next()
+			if ##class(TECH.StringUtils).EndsWith(Parameter.Name,"API") {
+				Do ..InitAPIStack(Parameter.Default)
+			} 
+		} Catch {
+			Do ##class(vhLib.Logger).%New("TECH.Context").ErrorMail(
+				"InitAPIStacks", "Probleem met '" _ Parameter.Name _ "'. " _ ##class(TECH.ExceptionHandler).Catch().ToString() )
+		}
 	}
 ]]></Implementation>
 </Method>