Commande md5 buggée

[djkenny]

j'ai peut être une solution
charges ça:

tclcopier

if {[info command md5]!="" && [info command _md5]==""} {
    package require md5
    rename md5 _md5
    proc md5 string {
        ::md5::md5 -hex $string
    }
}