Minor fix for tcl to at least allow most of the tests to be run.
Minor fix for tcl to at least allow most of the tests to be run.

Threading enabled:
Total   24400   Passed  23371   Skipped 981     Failed  48

Threading disabled:
Total   24400   Passed  23247   Skipped 1110    Failed  43



moochris/haikuports,Begasus/haikuports,miqlas/haikuports,nielx/haikuports,Begasus/haikuports,miqlas/haikuports,haikuports/haikuports,nielx/haikuports,Begasus/haikuports,koletzky/haikuports,moochris/haikuports,koletzky/haikuports,haikuports/haikuports,miqlas/haikuports,haikuports/haikuports,moochris/haikuports,nielx/haikuports,Begasus/haikuports,haikuports/haikuports,haikuports/haikuports,Begasus/haikuports,koletzky/haikuports