Ошибка в программе. Popup_list.

;*************************************
; MyScale.dcl                        *
;*************************************
MyScale : dialog {
label = "Установка размерного стиля.";
 : row {
            label = "Установить";
            children_fixed_width = true;
              : boxed_column {
                label="Масштаб";
                   fixed_width = true;
                   : popup_list {
                   key = "Scale";
                   edit_width = 20;
                   }
        }
: boxed_column {
: radio_button {
key = "Zas";
label = "Засечки";
}
: radio_button {
key = "Arr";
label = "Стрелки";
}
}
 }
            ok_cancel_help;
}
;;***************** MyScale.lsp ***********
;;   Программа установки размерного стиля *
;;*****************************************
(defun set_razstyle ()
           (if (not (tblsearch "style" "ArialItlk")) ; Создание стиля текста.
(entmake (list
       (cons 0 "STYLE")
       (cons 100 "AcDbSymbolTableRecord")
       (cons 100 "AcDbTextStyleTableRecord")
       (cons 2 "ArialItlk")
       (cons 70 0)
       (cons 40 0)        ;Visota
       (cons 50 0)
       (cons 71 0)
       (cons 42 0)
       (cons 3 "ariali.ttf")
       (cons 4 "")
       (cons 41 1)
       (cons 70 0)
     )
  )
)
(if (tblsearch "dimSTYLE" "Alex_01")     ; Создание размерного стиля.
(progn                     
  (set_var)
  (command "_dimSTYLE" "_save" "Alex_01" "_y")
 )
 (progn                     
  (set_var)
  (command "_dimSTYLE" "_save" "Alex_01")
 )
)
)
(defun set_var ()                ; Задание размерных переменных.
  (setvar "DIMASSOC" 1)                  ; Ассоциативные размеры включены
  (setvar "DIMLUNIT" 2)                  ; Десятичная система единиц
  (setvar "DIMASZ" (* s 2.5))           ; Размер стрелки (засечки)
  (setvar "DIMDEC" 0)                  ; Число знаков после запятой
  (setvar "DIMTXSTY" "ArialItlk")              ; Стиль размерного текста
  (setvar "DIMTXT" (* s 2.5))           ; Высота размерного текста
  (setvar "DIMTOFL" 1)                  ; Разм. линия всегда рисуется между выносными линиями
  (setvar "DIMTIH" 0)                  ; Разм. текст параллелен размерной линии (внутри)
  (setvar "DIMTOH" 0)                  ; Разм. текст параллелен размерной линии (снаружи)
  (setvar "DIMTIX" 1)                  ; Разм. текст всегда размещается между выносными линиями
  (setvar "DIMDLE" 0)                  ; Разм. линия выступает за выносную на 0 единиц
  (setvar "DIMTAD" 1)                  ; Текст над размерной линией
  (setvar "DIMGAP" (* s 2.5))           ; Текст выше разм. линиии на N единиц
  (setvar "DIMEXO" 0)                  ; Смещение выносных линий относительно заданных точек равно нулю
  (setvar "DIMEXE" (* s 2.5))           ; Выносные линии выступают за размерные на N единиц
  (setvar "DIMTMOVE" 2)                  ; Размерный текст перемещается свободно
  (setvar "DIMSE1" 0)                ;Подавление первой выносной линии. (Откл)
  (setvar "DIMSE2" 0)                ;Подавление второй выносной линии. (Откл)
)
(defun do_Scale  ()
  (cond
    ((= sl_lst "0") (setq s 1))
    ((= sl_lst "1") (setq s 5))
    ((= sl_lst "2") (setq s 10))
 )
)
(defun get_Scale ()
  (setq  My_Scale (list " 1:1" " 1:5" " 1:10" ))
  (cond
    (setq sl_lst "0")
    (setq sl_lst "1")
    (setq sl_lst "2")
  )
 (start_list "Scale")
 (mapcar 'add_list My_Scale)
 (end_list)
 (if (not sl_lst) (setq sl_lst "0"))
 (set_tile "Scale" sl_lst)
 (mode_tile "Scale" 2)
)
(defun do_help ()
(help "AcadInst.chm")
)
;-----------------------------------------------------------
(defun C:MyScale  ()
      (setvar "cmdecho" 0)
      (setq dcl_id (load_dialog "MyScale.dcl"))
      (if (not (new_dialog "MyScale" dcl_id)) (exit))
    (get_Scale)
      (action_tile "Scale" "(setq sl_lst $value)" )
; (set_tile "Zas" "1")
      (action_tile "Zas" "(setq Zs (read $value))")
      (action_tile "Arr" "(setq Ar (read $value))")
      (action_tile "accept" "(setq done 1) (done_dialog)")
      (action_tile "cancel" "(setq done 2) (done_dialog)")
      (action_tile "help" "(do_help)")
      (start_dialog)
      (unload_dialog dcl_id)
    (command "_LAYER" "_S" "0" "")
(if (= done 1)
    (progn
    (if (= Zs 1) (setvar "DIMBLK" "_Oblique"))     ; Вместо стрелок — засечки ("Oblique")
    (if (= Ar 1) (setvar "DIMBLK" "."))        ; Стрелки (".")
    (do_Scale)
    (set_razstyle)
    (princ "\n Размерный стиль установлен. \n")
    )
)
(if (= done 2) (princ "\n Отмена."))
(setq Zs nil Ar nil sl_lst nil)
    (princ)
)