Index: TECH/ObjectUtils/ObjectConvertData.cls.xml
===================================================================
diff -u -r2213 -r2246
--- TECH/ObjectUtils/ObjectConvertData.cls.xml	(.../ObjectConvertData.cls.xml)	(revision 2213)
+++ TECH/ObjectUtils/ObjectConvertData.cls.xml	(.../ObjectConvertData.cls.xml)	(revision 2246)
@@ -18,6 +18,9 @@
 	set Conversion.PropertyTo = PropertyTo
 	do:$length(Script) Conversion.Script.Write(Script)
 	
+	#dim ItemIndex As TECH.Integer = ##class(TECH.ObjectListUtils).FindPropertyWithValue(..Conversions,"PropertyFrom",PropertyFrom)
+	if $$$Not(ItemIndex=0) do ..Conversions.RemoveAt(ItemIndex)
+	
 	do ..Conversions.Insert(Conversion)
 ]]></Implementation>
 </Method>