Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r1806 -r1822
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 1806)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 1822)
@@ -56,11 +56,8 @@
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
-<PublicList>QU</PublicList>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ..ZetGebruikerID(..BuildGebruikerID($get(QU(1),0)))
-	Quit $$$OK
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -101,7 +98,11 @@
 
 <Method name="GeefGebruikerID">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $get(^||RuntimeContext("GebruikerID"),..BuildGebruikerID())
+<Implementation><![CDATA[
+	if '$Data(^||RuntimeContext("GebruikerID")) {
+		do SendMiniMailForced^vhLib.Mail($$$SystemMail("Runtime"),$listbuild("jcl"),"Runtime",$$GetStackToString^vhLib.System())
+	}
+	Quit $get(^||RuntimeContext("GebruikerID"),..BuildGebruikerID())
 ]]></Implementation>
 </Method>