[xyzzy:08804] 連想配列が変身？

[TERU.kami <NCA03015@xxxxxxxxxxx>]

上山と申します。
いつもxyzzyにはお世話になっております。

連想配列が途中で変身してしまいます。
これは当たり前なのでしょうが？
変身させないようにするにはどのようにすればよいのか
教えて下さい。
-----------------------------------------------------------------------
(setq word-alist '(("doctor")))
=> (("doctor"))

(setq word "DOCTOR")
=> "DOCTOR"

(if (not (assoc word word-alist :test 'equal))
	(setq word-alist (cons (list word) word-alist)))

word-alist
=> (("DOCTOR") ("doctor"))


(if (not (assoc (nstring-downcase word) word-alist :test 'equal))
	(setq word-alist (cons (list (word) word-alist))))
nil

word-alist
=> (("doctor") ("doctor"))
     　↑
変身しちゃうんです。
これを(("DOCTOR") ("doctor"))とするにはどうしたらよいのでしょうか？

よろしくお願いします。
 
-----------------------------------------------------------------------
上山誉晃（Yoshiteru Kamiyama )　　　　　E-mail:　 NCA03015@xxxxxxxxxxx
-----------------------------------------------------------------------