Snapang ....crash!

Using this code sometimes causes Acad 2005 to crash without any fatal error
message.
It just closes down, and what's frustrating it doesn't even create a sv$
file to retrieve.
Does anyone know what may causes this to happen?
Thanks Russ

(defun c:SnapCursor (/ e elist)
(setq e (entsel "\nSelect line: "))
(if (= (cdr
(assoc 0
(setq elist(entget (car e)))))"LINE")
(setvar "snapang"
(angle
(cdr (assoc 10 elist))
(cdr (assoc 11 elist)))))
(princ)
);defun

 

Works fine here on R2005.


Bill

 

Yeah - It I thought it might behave itself when other people try it. It is
only intermitent...