Index: TECH/ObjectUtils/ObjectConvertData.cls.xml
===================================================================
diff -u -r2561 -r3495
--- TECH/ObjectUtils/ObjectConvertData.cls.xml	(.../ObjectConvertData.cls.xml)	(revision 2561)
+++ TECH/ObjectUtils/ObjectConvertData.cls.xml	(.../ObjectConvertData.cls.xml)	(revision 3495)
@@ -18,7 +18,7 @@
 	set Conversion.PropertyTo = PropertyTo
 	do:$length(Script) Conversion.Script.Write(Script)
 	
-	#dim ItemIndex As TECH.Integer = ##class(TECH.ObjectListUtils).FindPropertyWithValue(..Conversions,"PropertyFrom",PropertyFrom)
+	#dim ItemIndex As TECH.Integer = ##class(TECH.ObjectListUtils).FindPropertyWithValue(..Conversions,"PropertyTo",PropertyTo)
 	if $$$Not(ItemIndex=0) do ..Conversions.RemoveAt(ItemIndex)
 	
 	do ..Conversions.Insert(Conversion)