Reactor Failure With 2005 Upgrade

I upgraded from R2002 to R2005, and this reactor no longer works. I got the code several years ago in this group and modified it slightly. I have researched this topic here and have found no other mention of a failure of this type reactor with an upgrade from R2002. I am including the portion within my "Startup" function. Any suggestions would be greatly appreciated.

(defun LayoutSwitched (reactor layout / ltt)
(setvar "psltscale" 1)
(if (= (nth 0 layout) "Model")
(progn
(setq ltt (setvar "ltscale" (* (getvar "userr1") 0.375)))
)
(progn
(setq ltt (setvar "ltscale" 0.375))
)
)
(princ)
)


(defun s::startup ()

(vl-load-com)
(vl-load-reactors)

(if (not (vlr-reactors :VLR-Miscellaneous-Reactor))
(VLR-Miscellaneous-Reactor nil '(VLR-layoutSwitched .
LayoutSwitched)) )
)

 

(not (vlr-reactors :vlr-miscellaneous-reactor))-----check!

(getvar "userr1") ---Are you set the userr1?

LTT----no use?

the code several years ago in this group and modified it slightly. I have
researched this topic here and have found no other mention of a failure of
this type reactor with an upgrade from R2002. I am including the portion
within my "Startup" function. Any suggestions would be greatly appreciated.

 

I fill in an integer for "Userr1" instead of dimscale to set up a scale factor for text size, dim arrow size, etc. "Ltt" isn't needed in the stripped down version I posted, sorry for any confusion.

On your reply, should VLR not be capitalized, is that what you mean by check?
Thanks