dictionary-specification.
 ;; XXX: Should use backend interface
 (defun egg-toroku-region (start end)
   (interactive "r")
-  (let* ((env (wnn-get-environment))   ; XXX
+  (let* ((env (wnn-get-environment wnn-dictionary-specification)) ; XXX
         (kanji (buffer-substring start end))
         (yomi (read-multilingual-string 
                (format "\e$B<-=qEPO?!X\e(B%s\e$B!Y\e(B  \e$BFI$_\e(B:" kanji)))