Index: TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r2320 -r3069
--- TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 2320)
+++ TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 3069)
@@ -64,7 +64,10 @@
 <Method name="ZetPiece">
 <FormalSpec>Index:%Integer,Waarde:%String</FormalSpec>
 <Implementation><![CDATA[
-	// TODO: Controle op ongeldige karakters in Waarde, zoals delimiters...
+	If (Waarde [ "\") {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("De meeggegeven Waarde mag geen '\' bevatten bij het zetten van een piece!") 
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
 	If $Piece(..NodeDataString,..Delimiter,Index) '= Waarde {
 		Do ..DirtyPieces.SetAt(Waarde, Index)
 	} Else {