There is an error on line 674 in mime.tcl:
if {(!$blankP) && ([string last \r $line] == {$x - 1})} {

should be

if {(!$blankP) && ([string last \r $line] == [expr {$x - 1}])} {