title: Capture stdout within a TCL catch command
body: <p>In my main tcl script, I am calling a tcl proc wrapped in a catch command.
  This proc in-turn calls 10 more procs.</p>
  <p>When there is an error in execution in any of those 10 procs, TCL still continues execution of my main script as expected and I am just able to view the error message which I captured. This error message may/may-not be conclusive enough to determine which of the 10 procs errored out during execution.</p>
  <p>Is there a way to still keep capturing all the stdout until the point of error?
  I know it can be done by writing all messages (puts statements) in those 10 procs to another log file. But I'm interested in knowing if there is any other way.</p>