программа снимается по непонятной причине

Добрый всем день!
столкнулся со следующей проблемой:
приложенный лисп (не важно, что он выполняет) в самом начале должен подправить экран, а именно:
- включить MENUBAR,
- вкючить COMMANDLINE
- сделать фон экрана черным.
Порядок такой: я выключаю руками MENUBAR, COMMANDLINE и делаю фон экрана НЕ черным.
лисп все чинит и снимается. и только со второго раза (когда все починено) начинает работать...
ПОЧЕМУ???
Прошу помощи!
Спасибо заранее!

(defun c:BGblack ()
(vl-load-com)
(setq disp (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq drafting (vla-get-drafting (vla-get-preferences (vlax-get-acad-object))))
(vla-put-GraphicsWinModelBackgrndColor disp 0)
(vla-put-ModelCrosshairColor disp 16777215)
(vla-put-AutoSnapMarkerColor drafting 2)
(princ)
)
(defun Quick ( / )
                                      (command "commandLine")
                                      (c:BGblack)
                                      (if (getvar "MENUBAR")(setvar "MENUBAR" 1))
                                       (command "_.addselected"  pause)
                                   (while (= (getvar "cmdactive") 1)
                                         (command pause)
                                   )
                                         )
(quick)

Автокад 2023