I wrote a fix for that. Thanks Dave.
set vigencia [split $vigencia {-}] set vigencia "[lindex $vigencia 2][lindex $vigencia 1][lindex $vigencia 0]"