Why do I need to eval this?

[Arnaldo Mandel]

Here is a short utility command that is useful to those writing
Portuguese on US keyboards:

(defun crases (daqui)
  "Offers all grave-accented chars to be corrected to the corresponding tilda.
Argument DAQUI starts search from point."
  (interactive "P")
  (let ((start (if daqui (point) (point-min))))
    (save-excursion
      (query-replace-regexp-eval "[àòÀÒ]" 
                                 '(cdr (assoc (match-string-no-properties 0)
                                              '(("à" . "ã") ("ò" . "õ")
                                                ("À" . "Ã") ("Ò" . "Õ"))))
                                 nil start (point-max)))))

If I either byte-compile it or load it uncompiled from a file, it
doesn't work: it finds the characters that have to be replaced,
but replaces with nil.  On the other hand, if I eval this expression
(C-x C-e), it works perfectly.  The behavior is the same in emacs 21
and 22.

Any idea on what is going on?

am

-- 
Arnaldo Mandel                        
am@ime.usp.br