DCL파일 문의(고수님들 도와주세요)

간단한 예제 파일인데, Dialog 박스안에 Button을 만들어서 실행을 시켜보니
유독 첫번째 Button만 실행이 안되고, 두번째,세번째 Button은 실행이 됩니다.
무엇이 잘못 된 건가요? 함 손봐 주세요. ^^;;
해당파일두 같이 올리겠씀당..
;; sam01.DCL파일 내용
ein : dialog{label = “버튼실험”;
:button{label=”라인그리기”; key=”key01″;}
:button{label=”원그리기”; key=”key02″;}
:button{label=”사각그리기”; key=”key03″;}
ok_only;
}
;; sam01.lsp파일 내용
(defun c:qqq(/ s01 s02 s03 )
  (setq id(load_dialog “d:/sam01.DCL”))
  (if (not (new_dialog “ein” id)) (exit))
  (action_tile “key0l” “(setq s01 $value)(done_dialog)”)
  (action_tile “key02” “(setq s02 $value)(done_dialog)”)
  (action_tile “key03” “(setq s03 $value)(done_dialog)”)
  (setq ok (start_dialog))
  (if (= s01 “1”) (command “line”))
  (if (= s02 “1”) (command “circle”))
  (if (= s03 “1”) (command “rectangle”)) 
    (unload_dialog id))