ACADDDIM Issues in 2004?

I have a routine that I built back in 2000i days and just recently dusted it off and tried it and it will crash AutoCAD but I can't figure out why. It doesn't crash it until you try to add a QLeader after altering the settings with the following (PS, I like to write my code in all caps. I hope this does not make it hard for you all to read.)

(SETQ LEADER (LIST (CONS 0 "XRECORD")(CONS 100 "AcDbXrecord")
(CONS 280 1);DUPLICATE RECORD CLONING FLAG
(CONS 60 0);ANNOTATION TYPE
(CONS 61 0);REUSE VARIABLE
(CONS 62 1);PLACES ANNOTATION AT MIDDLE OF TOP LINE (LEFT)
(CONS 63 2);PLACES ANNOTATION AT MIDDLE OF TOP LINE (RIGHT)
(CONS 64 0);UNDERLINE BOTTOM LINE
(CONS 65 0);WHETHER STRAIGHT OR SPLINED
(CONS 66 0);LIMIT LEADER POINTS
(CONS 67 3);POINTS ALLOWED FOR LEADER IF LIMITED
(CONS 68 1);PROMPT FOR WIDTH
(CONS 69 0);ALWAYS LEFT JUSTIFY
(CONS 70 0);ANGLE ALLOWED FOR FIRST SEGMENT
(CONS 71 0);ANGLE ALLOWED FOR SECOND SEGMENT
(CONS 72 0);FRAME TEXT
)
)
(SETQ LEADER (ENTMAKEX LEADER))
(IF (/= (DICTSEARCH (NAMEDOBJDICT) "ACADDIM") NIL)(DICTREMOVE (NAMEDOBJDICT) "ACADDIM"))
(DICTADD (NAMEDOBJDICT) "ACADDIM" LEADER)

Has there been changes that I don't know about that are causing the crashes? Any help would be appreciated.

Josh