Index: vhUnitTest/TECH/JSON/Parser/ParseJSON/Test.cls.xml
===================================================================
diff -u -r957 -r3785
--- vhUnitTest/TECH/JSON/Parser/ParseJSON/Test.cls.xml	(.../Test.cls.xml)	(revision 957)
+++ vhUnitTest/TECH/JSON/Parser/ParseJSON/Test.cls.xml	(.../Test.cls.xml)	(revision 3785)
@@ -68,7 +68,7 @@
 
 <Method name="TestJSONMetOnbestaandeVelden">
 <Implementation><![CDATA[
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Parsing JSON file failed")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Parsen van het JSON bericht is gefaald","<PROPERTY DOES NOT EXIST>","UnExistingField,vhUnitTest.TECH.JSON.Parser.Parse")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 	#dim JSONString As %String = "{ ""UnExistingField"":""Field1Value"" , ""Embedded"" :[{ ""Field1"":""EmbeddedField1Value""}] }"
 	#dim Object As vhUnitTest.TECH.JSON.Parser.ParseJSON.Main = ..Parse(JSONString)