The routine seems to work, but I can't seem to get it to work in Expressions.
Looking through the help, it looks like Expressions are extremely limited. There are a few pre-defined functions, and that seems to be it. If there's any way of creating a user-defined function or calling a Lisp routine in an Expression, I can't find it.
Annotations come in as attributed blocks. So it would be possible to write a routine lets the user select existing annotations, and have commas added to the areas. If it becomes necessary to refresh the Annotations, the user would probably have to run the routine again to put the commas back in the refreshed Annotations. This should work, but it seems like an awful lot of effort.