Thanks for clarifying what this should be, Don. I'll fix this. More current versions of Tcl do not report an error for this code snippet.
I'm on vacation now, so I won't be able to get to this for a few days. If anyone else has commit access and wants to commit it, please do so.