OSX10.2.8で動いていたスクリプトがOSX10.3では、正常にうごいてくれんません、なにか仕様がかわったんでしょうか？

白くくりをつけるスクリプトです。

tell application "InDesign 2.0.1J"
activate
copy
tell selection
set AA to get geometric bounds
set aaa to create outlines
tell aaa
set outL to get object reference
select outL
run FUTI
end tell
paste
set geometric bounds to AA
end tell
end tell

script FUTI
tell application "InDesign 2.0.1J"
set myDocument to active document
tell myDocument
set myColor to make color with properties {color value:{0, 0, 0, 0}, name:"Mojisiro"}
end tell
tell selection
set properties to {end cap:round end cap, end join:round end join, fill tint:0.0, fill color:myColor, miter limit:4.0, corner effect:none, corner radius:0.167, gradient fill angle:0.0, right line end:none, overprint stroke:false, stroke color:myColor, stroke type:solid, text wrap:none, stroke weight:"2mm"}
end tell
end tell
end script

お願いします。