리습 확인좀 부탁 드려요

(DEFUN C:DD (/ a b c d e)
  (prompt "nSelect text to edit: ")
  (setq a (ssget))
  (setq b (sslength a))
  (setq c 0)
  (while (<= 1 b)
     (setq d (ssname a c))
     (if (eq (cdr (assoc 0 (entget d))) "TEXT")
              (command "textedit" d "" "")
     )
     (setq b (- b 1))
     (setq c (+ c 1))
  )
  (princ)
)

텍스트를 수정 할때 쓰던 리습입니다.
우선 2012버젼에서는 에러가 없이 잘 사용이 됩니다만,
2016 네트웍 라이센스 버전을 쓰면서 뭔가 안맞는지
깨끗하게 마무리가 안되네요.  텍스트 바뀌고 나면서 아래 문구 뜹니다 . 

 —– command 창 내용 —-

Select text to edit:
객체 선택: 1개를 찾음
객체 선택:  알 수 없는 명령 "DD".  도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 "DD".  도움말을 보려면 F1을 누르십시오.