I just found out that my suggested solution doesn't parse the tcl/adp code (as Dave mentioned previously!).
Sorry. I will go stand in the corner for ten minutes.
