That works great. Now, anybody who may have gotten the function I've thrown out for simplifying setvars, I hadn't run across RO variables until today, thus this need. So if anyone has taken this or any variation of it, please update your files.
(defun remapvars (lst)
(mapcar '(lambda (x)
(vl-catch-all-apply 'setvar (list (car x) (cdr x)))
)
lst
)
)