Index: DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r37787 -r48193
--- DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 37787)
+++ DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 48193)
@@ -88,6 +88,8 @@
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+
 	If (..KlantNummer = "") {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Er is geen KlantNummer ingevuld, kan object niet saven.")	)
 	}
@@ -175,6 +177,7 @@
 Hier specifiek in KKL de nodes overkopiëren.</Description>
 <FormalSpec>IndexUpdated:%Boolean,OudeKlantIndex:%String</FormalSpec>
 <Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
 	#dim KlantIndex As %String = $$COMPRES^KLANT(..GeefNaam(),..KlantNummer)
 	If (KlantIndex '= OudeKlantIndex) {
 		Merge ^KKL(KlantIndex) = ^KKL(OudeKlantIndex) 
@@ -188,6 +191,7 @@
 Bouwt de indexen op van een bestaand object</Description>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
 	#dim KlantIndex As %String = $$COMPRES^KLANT(..GeefNaam(),..KlantNummer)
 	Set ^INDEX("K","KL",101,..GeefIndexSleutel(..KlantNummer)) = KlantIndex
 	Set ^INDEX("K","KL",102,KlantIndex) = KlantIndex