ido breaks command-history

[dnquark]

I am using ido to complete the M-x commands, as described on EmacsWiki
-- http://www.emacswiki.org/emacs/InteractivelyDoThings.
Unfortunately, when ido is used M-x commands are no longer recorder in
the command history. As a result, C-x z, as well as browsing history
in the minibuffer with M-p and M-n no longer works. Does anyone have
an idea of how to go about fixing thisi?.. The emacsWiki code is
below:

 (setq ido-execute-command-cache nil)

 (defun ido-execute-command ()
   (interactive)
   (call-interactively
    (intern
     (ido-completing-read
      "M-x "
      (progn
        (unless ido-execute-command-cache
          (mapatoms (lambda (s)
                      (when (commandp s)
                        (setq ido-execute-command-cache
                              (cons (format "%S" s) ido-execute-
command-cache))))))
        ido-execute-command-cache)))))

 (add-hook 'ido-setup-hook
           (lambda ()
             (setq ido-enable-flex-matching t)
             (global-set-key "\M-x" 'ido-execute-command)))