Known bugs

if { [catch {

call_proc1

call_proc2

...

} errstring] } {

...

}

Use:

set err [catch {

call_proc1

call_proc2

...

} errstring]]

if { $err } {

...

}