문자 뒷쪽에 M 이란 문자를 삽입하고 싶은데 계속 앞에 생성이 되네요 어떤부분을 고쳐야하는지 확인 부탁드립니다.

문자 뒤쪽이 아닌 앞쪽에 M이 생성됩니다.
뒷쪽으로 하려면 어떻게 해야할까요.
기존의 파이 추가 리습을 수정했는데요
파이* -> *M 으로 바꿨습니다.

(defun c:mm(/ os ss sslen ass1 otxt ntxt elist k)
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (prompt "n M 넣기할 치수나 문자선택 ")
   (setq ss (ssget))
   (setq sslen (sslength ss) k 0)
   (while (< k sslen)
       (setq elist (entget (ssname ss k)) )
       (setq ass1 (assoc 1 elist) otxt (cdr ass1) )
       (if (= otxt "") (setq otxt "<>"))
       (if (and (= (wcmatch otxt "*M") nil) (= (wcmatch otxt "*M") nil))
           (progn
              (setq ntxt  (strcat "M" otxt ) elist (subst (cons 1 ntxt) ass1 elist))
              (entmod elist)
           )
       )
       (setq k (+ K 1))
   )
   (setvar "osmode" os)
   (prin1)
)