procedure header comments added as per TCL Style guide