Old Bill Krammer Groups code ceases to work?

[hutch]

(defun XplodeGRP (GROUPNAME /)
(setq GROUPDICT (dictsearch (namedobjdict) "ACAD_GROUP")) (dictremove (cdr (assoc -1 GROUPDICT)) GROUPNAME)
)

This old code thanks to Bill Krammer has served me a long time... but now in AutoCAD 2004 it ceases to work.... what has changed?

 

[R. Robert Bell]

Please don't double/triple post. See my reply in one of your other threads (I'm losing track as to *which* thread it was!)