Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r441 -r458
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 441)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 458)
@@ -30,7 +30,6 @@
 
 <Property name="GebruikerID">
 <Type>%String</Type>
-<InitialExpression>"4682||0"</InitialExpression>
 <Private>1</Private>
 </Property>
 
@@ -116,7 +115,7 @@
 		If (GebruikerInitialen = "") {	
 			If $$$Not(##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()["DMZ"){
 				#dim GebruikerID = ..GeefGebruikerID()
-				if $length(GebruikerID) { 
+				if ($length(GebruikerID)) { 
 					set GebruikerInitialen = $$USERNAME^vhUSER($piece(GebruikerID,"||",2),-1)
 				} else { 
 					set GebruikerInitialen = $$USERNAME^vhUSER(,-1) 
@@ -224,8 +223,11 @@
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
+<PublicList>QU</PublicList>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
+<Implementation><![CDATA[
+	set ..GebruikerID = "4682||"_$get(QU(1),0)
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 </Class>