문자내용 수정하는 리습인데 궁금한게 있습니다

가 101 -> 나 101
가 102 -> 나 102
가 103 -> 나 103
위 내용처럼 “가” 를 “나” 로 바꿀려고 합니다

(setq ent_lst (entget (ssname (ssget “X” ‘((0 . “TEXT”) (1 . “가*”))) 0)))
(entmod (subst (cons 1 “나*”) (assoc 1 ent_lst) ent_lst))

위 리습으로 돌리면 전부 “나*”로 바뀌네요 어떻게 하면 될까요??