Howdy, It looks like the following loop can be totally removed + for {set i 0} {$i < [llength $shouldbe]} {incr i} { + set num [lindex $shouldbe $i] + } and this line + set tfailed [expr $lfailed + [expr $bfailed + $cfailed]] can be simplified to + set tfailed [expr $lfailed + $bfailed + $cfailed] Matt