Index: TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r3069 -r3072
--- TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 3069)
+++ TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 3072)
@@ -64,8 +64,8 @@
 <Method name="ZetPiece">
 <FormalSpec>Index:%Integer,Waarde:%String</FormalSpec>
 <Implementation><![CDATA[
-	If (Waarde [ "\") {
-		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("De meeggegeven Waarde mag geen '\' bevatten bij het zetten van een piece!") 
+	If (Waarde [ ..Delimiter) {
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("De meeggegeven Waarde mag geen '" _..Delimiter _"' bevatten bij het zetten van een piece!") 
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
 	If $Piece(..NodeDataString,..Delimiter,Index) '= Waarde {