Index: TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r3241 -r3252
--- TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 3241)
+++ TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 3252)
@@ -42,6 +42,24 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="IsNieuw">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Delimiter:%String="\",IsNieuw:%Boolean=0</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Persistent = 0
+	Set ..IsNieuw = IsNieuw
+	Set ..Delimiter = Delimiter
+	Set ..NodeDataString = ""
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefPiece">
 <FormalSpec>Index:%Integer</FormalSpec>
 <ReturnType>%String</ReturnType>
@@ -68,7 +86,7 @@
 		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 {
+	If ($Piece(..NodeDataString,..Delimiter,Index) '= Waarde ) || ( ..IsNieuw ) {
 		Do ..DirtyPieces.SetAt(Waarde, Index)
 	} Else {
 		Do ..DirtyPieces.RemoveAt(Index)
@@ -106,8 +124,13 @@
 
 <Method name="Save">
 <Implementation><![CDATA[
+	if ..IsNieuw {
+		Set @..NodeKey=""
+		Set ..IsNieuw = $$$false
+	}
+
 	Set DirtyPiecesIterator = ##class(TECH.ListIterator).%New(..DirtyPieces)
-	While (DirtyPiecesIterator.HasNext()) {
+	while (DirtyPiecesIterator.HasNext()) {
 		#dim VolgendeWaarde As %String = DirtyPiecesIterator.Next()
 		#dim NodeDataStringProp As %String= ..NodeDataString
 		Set $Piece(NodeDataStringProp, ..Delimiter, DirtyPiecesIterator.Key()) = VolgendeWaarde
@@ -141,18 +164,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="%OnNew">
-<FormalSpec>Delimiter:%String="\"</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Persistent = 0
-	Set ..Delimiter = Delimiter
-	Set ..NodeDataString = ""
-
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <UDLText name="T">
 <Content><![CDATA[
 /* Dit betekent: heeft de node een persistente lokatie, en kan er dus ge-Save'd worden.
@@ -221,9 +232,12 @@
 	Set ..Persistent = 1
 	Set ..NodeKey = ##class(TECH.Persistentie.GlobalUtils).MaakNodeKey(GlobalNaam, Subscripts)
 	If (($Data(@..NodeKey) = 1) || ($Data(@..NodeKey) = 11)) { 
+		Set ..IsNieuw = $$$False
 		Set ..NodeDataString = @..NodeKey // Dit zou lazy kunnen, omwille van performantie.
 		// Eventuele logging: Write "Geopende node: ", ..NodeKey, " Data: ", ..NodeDataString, !
-	}		
+	} else {
+		Set ..IsNieuw = $$$True
+	}	
 	Quit $$$OK
 ]]></Implementation>
 </Method>