test_soak.tcl improvements