🚀 go-pugleaf

Hello brillant collective mind,
I am attempting to create an InDesign version of Quarks extension called "Kerning Palette" using Applescipt. Basically the script gets the kerning value of the current insertion point, selects the pair of characters wrapped around the insertion point, and applys the new kerning value to any other instances of the character pairs. The problem I have is that the replacing is deleting all the text.

Here's what I have so far

tell application "InDesign 2.0.2"
	set myProps to properties of selection
	set kerningValue to kerning value of myProps as string
	set objRef to object reference of myProps
	set parentProps to parent of myProps
	set objRef2 to index of objRef
	select (characters (objRef2 - 1) thru objRef2) of parentProps
	set charPair to properties of selection
	set charContents to contents of charPair
	set charFontStyle to font style of charPair
	set charPair to charPair as list
	set myResults to {}
	set CharFontSize to item 87 of charPair
	set charFont to item 19 of charPair
	set find preferences to nothing
	set change preferences to nothing
	search document for {text contents:charContents} with find attributes {font:charFont, size:CharFontSize, font style:charFontStyle} �
		replacing with charContents with change attributes {kerning value:kerningValue}
end tell

Any ideas?