Replace the *current-root* variable in clfswm-nw-hooks.lisp