emacsからJammingを起動して辞書を引く簡単なelispを書いてみました。

英語に関してはちゃんと動いてるんですが、do-applescriptに日本語の
文字列を渡すと、Jamming側では激しく文字化けします。

どっかcoding systemのセットで解決するんでしょうか。何か
ご存じの方いらしたらおしえてください。

コードはこんなのです
-----
(defun jamming-lookup (word)
(do-applescript
(replace-regexp-in-string "TheWord" (read-from-minibuffer "Jamming: " word)
"tell application \"Jamming\" \r activate \r search \"TheWord\" \r end tell")))

(defun jamming-lookup-region (start end)
(interactive "r")
(jamming-lookup (buffer-substring-no-properties start end)))

(defun jamming-lookup-word ()
(interactive)
(jamming-lookup (word-at-point)))