Index: TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r130 -r252
--- TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 130)
+++ TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 252)
@@ -9,7 +9,6 @@
 
 Zal locking moeten doen.</Description>
 <ClassType/>
-<Import>zTryout.ARC.TECH.Persistentie.GlobalUtils</Import>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 
@@ -47,19 +46,23 @@
 <FormalSpec>Index:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-		If (..DirtyPieces.IsDefined(Index)) {
-			Quit ..DirtyPieces.GetAt(Index)
-		} Else {
-			Quit $Piece(..NodeDataString, ..Delimiter, Index)
-		}
+	If (..DirtyPieces.IsDefined(Index)) {
+		Quit ..DirtyPieces.GetAt(Index)
+	} Else {
+		Quit $Piece(..NodeDataString, ..Delimiter, Index)
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="ZetPiece">
 <FormalSpec>Index:%Integer,Waarde:%String</FormalSpec>
 <Implementation><![CDATA[
 	// TODO: Controle op ongeldige karakters in Waarde, zoals delimiters...
+	if $piece(..NodeDataString,..Delimiter,Index) '= Waarde {
 		Do ..DirtyPieces.SetAt(Waarde, Index)
+	} else {
+		do ..DirtyPieces.RemoveAt(Index)
+	}
 ]]></Implementation>
 </Method>
 
@@ -69,7 +72,7 @@
 <FormalSpec>Index:%Integer</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	Set PieceAanwezig = 0
+	#dim PieceAanwezig As %Boolean = 0
 	If (..DirtyPieces.IsDefined(Index)) {
 		Set PieceAanwezig = ("" '= ..DirtyPieces.GetAt(Index))
 	}  Else {