Add files via upload

BlackTools/Modules/BT.AutoUpdate.tcl

@@ -401,7 +401,7 @@ proc blacktools:update_restore {data newdata} {
     set current_data $newdata
     set variables [regexp -all -inline  {set black\((.+?)\)} $data]
     regsub -all {set black\((.+?)\)} $variables "" variables
-    set var_nomodif "name author vers site last_modify"
+    set var_nomodif "name author vers site current_modif"
     set var_counter 0
 foreach var $variables {
 if {$var == ""} {continue}