Index: APPS/VisiDot/impl/Tech.cls.xml
===================================================================
diff -u -r1839 -r1861
--- APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 1839)
+++ APPS/VisiDot/impl/Tech.cls.xml	(.../Tech.cls.xml)	(revision 1861)
@@ -38,7 +38,7 @@
 		Set ReadData=##class(APPS.VisiDot.dto.ReadData).%New()
 		Set ReadData.Name=Sleutel
 		Set ReadData.Value=Waarde
-		Set:(BewaarVoorHergebruik'=0) ReadData.Preserved=BewaarVoorHergebruik
+		Set:(BewaarVoorHergebruik=1) ReadData.Preserved="TRUE"
 		Do List.Insert(ReadData)
 	}
 ]]></Implementation>