diff --git a/lib/files.tcl b/lib/files.tcl
index f67816e..4fe7f25 100644
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -220,6 +220,8 @@ namespace eval FileOper {
         }
         unset modified($nbItem)
         .frmStatus.lblPosition configure -text ""
+        .frmStatus.lblEncoding configure -text ""
+        .frmStatus.lblSize configure -text ""
     }
     
     proc Save {} {
diff --git a/lib/procedure.tcl b/lib/procedure.tcl
index 300537a..938e7df 100644
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -189,6 +189,9 @@ proc FindVariablesDialog {txt args} {
     set y   [expr [lindex $box 1] + [winfo rooty $txt] + [lindex $box 3] ]
 
     set win .findVariables
+    if [winfo exists .varhelper] {
+       destroy .varhelper
+    }
 
     if { [winfo exists $win] }  { destroy $win }
     toplevel $win