いえいえ、どうもありがとうございます。

>>601-602に書き換えて試してみました。
動作しましたが「ページ戻る」のほうも「進む」になってしまったので、
なんとなく検索して出てきたこのサイトを見て……
http://codejaxy.com/q/322625/objective-c-osx-mouseevent-post-right-click-event-using-cgpostmouseevent

--右クリックする
on right_click(newX, newY)
set pt to current application's CGPointZero
set x of pt to newX
set y of pt to newY
current application's CGPostMouseEvent(pt, 1, 2, 0, 1)
current application's CGPostMouseEvent(pt, 1, 2, 0, 0)
end right_click

……にしてみたら「戻る」ようになりました。

たまにポップアップになってしまうときがあるけど、
新しく教えてくれたもののほうが、だいぶその回数が減った感じでよくなりました。
自分ではこういうのちっとも書けないのですごく助かります。