Index: Tools/ObjectDumper/Dumper.cls.xml
===================================================================
diff -u -r799 -r1205
--- Tools/ObjectDumper/Dumper.cls.xml	(.../Dumper.cls.xml)	(revision 799)
+++ Tools/ObjectDumper/Dumper.cls.xml	(.../Dumper.cls.xml)	(revision 1205)
@@ -116,11 +116,18 @@
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	new PropertyValues
-	new Code set Code = "merge @PropertyName = ..Object."_PropertyName xecute Code
+	
+	new Code 
+	set Code = "merge @PropertyName = ..Object."_PropertyName 
+	xecute Code
+
 	new Subscript set Subscript = PropertyName
 	for { set Subscript = $query(@Subscript) quit:Subscript=""
 		do List.Insert(Subscript_" = "_@Subscript)
 	}
+	
+	set Code = "Kill @PropertyName"
+	xecute Code
 ]]></Implementation>
 </Method>
 </Class>