(defmfun $ezgcd (&rest args)
(prog (pfl allvars presult flag genvar denom pfl2)
;;need if genvar doesn't shrink
(when (null args)
(when (some #'$ratp args)
(setq flag t)) ;; was (return (setq flag t)))
This was fixed by commit [66e77f] last year. I thought that I had checked the bug tracker, but I guess I forgot.