Petite erreur...

 set mean [expr {$mean / [llength $times]}]

Il manque un -1, m'en suis rendu compte en faisant la version en C. D'ailleurs, tout le calcul du tempo se simplifie en :

 set tempo [expr {60 * ([llength $times] - 1) / ($now - [lindex $times 0])}]