Index: vhLib/System.mac.rou
===================================================================
diff -u -r1806 -r1822
--- vhLib/System.mac.rou	(.../System.mac.rou)	(revision 1806)
+++ vhLib/System.mac.rou	(.../System.mac.rou)	(revision 1822)
@@ -61,6 +61,5 @@
  ..  do Body.Write($$$CRLF_"   - Context type  : "_$STACK(loop))
  ..  do Body.Write($$$CRLF_"   - Current place : "_$STACK(loop,"PLACE"))
  ..  do Body.Write($$$CRLF_"   - Current source: "_$STACK(loop,"MCODE"))
- Do Body.Write($$$CRLF_$$$CRLF_$$GetJobInfo(1,""))
  Set BodyString = Body.Read(30000)
  Quit BodyString
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>