Index: TECH/Context/RuntimeContext.cls.xml
===================================================================
diff -u -r542 -r825
--- TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 542)
+++ TECH/Context/RuntimeContext.cls.xml	(.../RuntimeContext.cls.xml)	(revision 825)
@@ -48,6 +48,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PersonalityID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Instance">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.Context.RuntimeContext</ReturnType>
@@ -61,7 +66,9 @@
 
 <Method name="Reset">
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Kill %TECHContextRuntimeContext
+<Implementation><![CDATA[
+	Kill ^||RuntimeContext
+	Kill %TECHContextRuntimeContext
 ]]></Implementation>
 </Method>
 
@@ -102,6 +109,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetPersonalityID">
+<FormalSpec>PersonalityID:%String</FormalSpec>
+<Implementation><![CDATA[	set ..PersonalityID = PersonalityID
+]]></Implementation>
+</Method>
+
+<Method name="GeefPersonalityID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PersonalityID As %String = ..PersonalityID
+	if '$length(PersonalityID) set PersonalityID = $get(^||RuntimeContext("PersonalityID"))
+	if '$length(PersonalityID) {
+		set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Personality is niet opgezet.")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	quit PersonalityID
+]]></Implementation>
+</Method>
+
 <Method name="GeefGebruikerInitialen">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[