字符串\列表操作后，tcl中的双精度值失去精度

使用tcl时，我发现了这样的一种现象：当我遍历double变量时，它失去了精度。

set dbl  [expr { double(13.0/7.0) }]
set dbl2 [expr { double(13.0/7.0) }]
foreach a $dbl {
}
if { $dbl == $dbl2 } {
    puts "\$dbl == \$dbl2"
} else {
    puts "\$dbl != \$dbl2" ;# they will be not equal
}

我很快就会发现，当您使用适用于字符串或列表的操作（例如，llength，lindex，字符串优先，rsub，foreach等）时，变量的双精度表示将被将要创建或已创建的字符串表示代替。早期，基于$tcl_precision价值。此外，使用set命令创建的这个double变量的每个副本也将被破坏。

有没有一种方法可以在tcl8.4中进行此类操作并且不强制tcl_precision达到某个固定值后又不会失去精度？

PSset tcl_precision 0仅适用于tcl8.5或更高版本。