Wrapper for query-replace does not use query-replace-history

[Nordlöw]

Hey I have a built a convenience wrapper for query-replace-regexp that
surrounds it argument with beginning and end of symbol regexps. I want
it to modify query-replace-history but it doesn't. Why?

/Nordlöw

Code follows.

(defun build-symbol-regexp (id)
  "Matches an ID as single word symbol (or C identifier) that
does not respect underscore."
  (concat "\\_<" id "\\_>"))

;; In Emacs-Lisp mode minus-sign is not allowed before or after.
(defun query-replace-symbol (source dest)
  "Rename a symbol (currently C-style) string symbol (identifier)
which unique name
 is determined by SOURCE replacing it with DEST."
  (interactive "sQuery replace symbol (identifier): \nsReplace with:
")
  (query-replace-regexp (build-symbol-regexp
                         (regexp-quote source)) ;quote string to
regexp
                        (concat dest)))