Use -nocomplain over catch, we have this in Tcl 8.4.