Fix TCL 8.4 compatibility

The variable **output** is never initialized.  When running TCL 8.4, this causes the script to fail.