Index: TECH/Filter/PropertyBasedFilter.cls.xml
===================================================================
diff -u -r2624 -r2743
--- TECH/Filter/PropertyBasedFilter.cls.xml	(.../PropertyBasedFilter.cls.xml)	(revision 2624)
+++ TECH/Filter/PropertyBasedFilter.cls.xml	(.../PropertyBasedFilter.cls.xml)	(revision 2743)
@@ -46,7 +46,7 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	new Value
+	new Value,Code
 	set Code = "set Value = Object."_Property
 	xecute Code
 	quit Value
Index: vhUnitTest/TECH/Filter/PropertyBasedFilter/IsValid/Test.cls.xml
===================================================================
diff -u -r2684 -r2743
--- vhUnitTest/TECH/Filter/PropertyBasedFilter/IsValid/Test.cls.xml	(.../Test.cls.xml)	(revision 2684)
+++ vhUnitTest/TECH/Filter/PropertyBasedFilter/IsValid/Test.cls.xml	(.../Test.cls.xml)	(revision 2743)
@@ -3,10 +3,6 @@
 <Class name="vhUnitTest.TECH.Filter.PropertyBasedFilter.IsValid.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="GebruiktVariabeleControle">
-<Default>0</Default>
-</Parameter>
-
 <Method name="Test: 1 property 1 waarde -&gt; valid indien property waarde gelijk aan opgegeven waarde">
 <Implementation><![CDATA[
 	set ValueList = ##class(TECH.KeyValue.List).%New()