Index: tolbase/lib/toltk/tolpkg.tcl
===================================================================
--- tolbase/lib/toltk/tolpkg.tcl	(revision 60dd1b250654c9ce273c7b0372d093ac40ee7aea)
+++ tolbase/lib/toltk/tolpkg.tcl	(revision 23f300d50d77af7a5f38e23622f0a78f71ec6ebf)
@@ -32,4 +32,6 @@
 
 proc ::TolPkg::BackupPackage { p {delete 0}} {
+  # backup is not working, some problem has being reported on Windows 7
+  return 1
   set path [ GetPkgDirectory $p ]
   if { [ file exists $path ] } {
@@ -44,4 +46,6 @@
 
 proc ::TolPkg::RestoreBackup { p { delete 0 } } {
+  # backup is not working, some problem has being reported on Windows 7
+  return 1
   set path [ GetPkgDirectory $p ]
   set bak "${path}.bak"
@@ -55,4 +59,6 @@
 
 proc ::TolPkg::DeleteBackup { p } {
+  # backup is not working, some problem has being reported on Windows 7
+  return 1
   set path [ GetPkgDirectory $p ]
   set bak "${path}.bak"
Index: tolbase/lib/toltk/tolpkg_gui.tcl
===================================================================
--- tolbase/lib/toltk/tolpkg_gui.tcl	(revision 60dd1b250654c9ce273c7b0372d093ac40ee7aea)
+++ tolbase/lib/toltk/tolpkg_gui.tcl	(revision 23f300d50d77af7a5f38e23622f0a78f71ec6ebf)
@@ -985,10 +985,16 @@
 }
 
+proc ::TolPkgGUI::RefreshTree { } {
+  variable tree
+
+  $tree item delete all
+  FillTreeInfo $tree
+}
+
 proc ::TolPkgGUI::SyncServers { } {
   variable tree
   update
   ::TolPkg::UpdateRepositoryInfo
-  $tree item delete all
-  FillTreeInfo $tree
+  RefreshTree
 }
 
@@ -1062,4 +1068,5 @@
     -cmdlabelitem ""
     -customgui ""
+    -refreshtree 0
   }
   set DlgProcessData(-label) [ mc "You are about to process"]:
@@ -1220,8 +1227,8 @@
   }
   puts "InstallPackages: $InstallList"
-  DlgProcess $InstallList -title [ mc "Export packages" ] \
-      -label [ mc "You are about to export"]: \
+  DlgProcess $InstallList -title [ mc "Install packages" ] \
+      -label [ mc "You are about to install"]: \
       -beforestart ::TolPkgGUI::Installing \
-      -cmditem "InstallThisPackage"
+      -cmditem "InstallThisPackage" -refreshtree 1
   
 }
@@ -1242,11 +1249,16 @@
   variable DlgProcessData
   
-  DlgProcessStart 
+  DlgProcessStart
+  set hasProcessed 0
   foreach p $DlgProcessData(items) {
     if { $DlgProcessData(status) ne "working" } break
     DlgProcessItem $p
     DlgProcessAdvance
-  }
-  DlgProcessStop  
+    set hasProcessed 1
+  }
+  DlgProcessStop
+  if { $DlgProcessData(-refreshtree) && $hasProcessed } {
+    after idle ::TolPkgGUI::RefreshTree
+  }
 }
 
@@ -1286,5 +1298,5 @@
 
   set installZipData [ tk_getOpenFile -defaultextension .zip -multiple 1 \
-                           -parent $win -title [ mc "Select zip" ] \
+                           -parent $win -title [ mc "Select zip packages" ] \
                            -filetypes {{zip {.zip}}} ]
   if { $installZipData ne "" } {
@@ -1295,5 +1307,5 @@
         -label [ mc "You are about to install zip"]: \
         -beforestart ::TolPkgGUI::InstallingZip \
-        -cmditem InstallThisZip
+        -cmditem InstallThisZip -refreshtree 1
   }
 }
@@ -1342,5 +1354,5 @@
       -label [ mc "You are about to upgrade"]: \
       -beforestart ::TolPkgGUI::Upgrading \
-      -cmditem "InstallThisPackage"
+      -cmditem "InstallThisPackage" -refreshtree 1
 }
 
@@ -1377,9 +1389,13 @@
       -label [ mc "You are about to update"]: \
       -beforestart ::TolPkgGUI::Updating \
-      -cmditem "InstallThisPackage"
+      -cmditem "InstallThisPackage" -refreshtree 1
 }
 
 proc ::TolPkgGUI::ImportSyncInfo { } {
   Unimplemented "Import Sync Info"
+}
+
+proc ::TolPkgGUI::ExportSyncInfo { } {
+  Unimplemented "Export Sync Info"
 }
 
@@ -1390,8 +1406,4 @@
       -icon warning \
       -type ok -message [ mc "Unimplemented option" ]
-}
-
-proc ::TolPkgGUI::ExportSyncInfo { } {
-  Unimplemented "Export Sync Info"
 }
 
@@ -1447,5 +1459,5 @@
         -beforestart ::TolPkgGUI::Exporting \
         -customgui "CreateSelectDir" \
-        -cmditem "ExportThisPackage"
+        -cmditem "ExportThisPackage" -refreshtree 0
   }
 }