Index: IINT.mac.rou
===================================================================
diff -u -r29059 -r31560
--- IINT.mac.rou	(.../IINT.mac.rou)	(revision 29059)
+++ IINT.mac.rou	(.../IINT.mac.rou)	(revision 31560)
@@ -61,6 +61,7 @@
    Set GebruikerInitialen = ##class(vhLib.TerminalDevice).GeefIctGebruikerInitialenVanIP($$GetClientIP^vhLib)
    Set GebruikerID = $$GeefUserIDViaInitialen^vhUSER(GebruikerInitialen)
    Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID("4682||"_GebruikerID)
+   Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("AdminSessie_"_$Job)
    Quit
    
 SWITCH ;gecopieerd in ^|%SYS|%S
@@ -131,6 +132,8 @@
  I K G 3  ;toegang geweigerd 
  Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
  Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID("4682||"_QU(1))
+ Do ##class(TECH.Context.RuntimeContext).Instance().ZetSessieID("AdminSessie_"_$Job)
+ Do ##class(Tools.Wlip).%New(26).String("jjk;lk")
  D ^cA501 ;starten menu
 25 I $G(^cLOG(cs,"LOGIN",0)) G 21
  ;