Index: vhUnitTest/TECH/Persistentie/GlobalNode/Test.cls.xml
===================================================================
diff -u -r2913 -r3070
--- vhUnitTest/TECH/Persistentie/GlobalNode/Test.cls.xml	(.../Test.cls.xml)	(revision 2913)
+++ vhUnitTest/TECH/Persistentie/GlobalNode/Test.cls.xml	(.../Test.cls.xml)	(revision 3070)
@@ -131,6 +131,15 @@
 	Do $$$AssertEquals(..Node.GeefPiece(1),"de eerste waarde", "De waarde na Reload()")
 ]]></Implementation>
 </Method>
+
+<Method name="Test foutmelding bij meegeven van &apos;\&apos; in waarde">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De meeggegeven Waarde mag geen '\' bevatten bij het zetten van een piece!")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	Do ..Node.ZetPiece(2, "\")
+]]></Implementation>
+</Method>
 </Class>