Back to my own version of set-register