Add Tcl mirror class and bug fix.