Old "flatten" won't flatten

[laratoola85973]

I had to convert an Acad 2006 Dwg to Acad 2000 Dwg for my old "flatten.lisp" routine to work. Does a "flatten" routine for Acad 2006 exist? Thanks in advance, Larry G