Use `flet' again.  `cl-letf' does *not* work with `symbol-function'.