Index: zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r1222 -r1408
--- zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 1222)
+++ zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 1408)
@@ -33,11 +33,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="Dirty">
-<Type>%Boolean</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="DirtyPieces">
 <Type>%String</Type>
 <Collection>array</Collection>
@@ -80,6 +75,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsGewijzigd">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (0 = ..DirtyPieces.Count())
+]]></Implementation>
+</Method>
+
 <Method name="Save">
 <Implementation><![CDATA[
 		Set DirtyPiecesIterator = ##class(TECH.ListIterator).%New(..DirtyPieces)