Index: TECH/Context.cls.xml
===================================================================
diff -u -r3038 -r3214
--- TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 3038)
+++ TECH/Context.cls.xml	(.../Context.cls.xml)	(revision 3214)
@@ -488,13 +488,15 @@
 	If ('..APIObjecten.IsDefined(APINaam))
 	{
 		#dim ClassName As %String = ..APINamen.GetAt(APINaam).Peek()
+		Do:(ClassName="") ##class(TECH.Exceptions.GeneralErrorException).Throw("Geen ClassName gevonden voor APINaam '"_APINaam_"'.")
 		Do ..APIObjecten.SetAt($CLASSMETHOD(ClassName, "%New"),APINaam)
 	}
 	
 	#dim APIObject As %RegisteredObject = ..APIObjecten.GetAt(APINaam)
 	
 	If ('APIObject.%ClassIsLatestVersion()) {
 		set ClassName = ..APINamen.GetAt(APINaam).Peek()
+		Do:(ClassName="") ##class(TECH.Exceptions.GeneralErrorException).Throw("Geen ClassName gevonden voor APINaam '"_APINaam_"'")
 		set APIObject = $CLASSMETHOD(ClassName, "%New")
 		Do ..APIObjecten.SetAt(APIObject,APINaam)
 	}