diff --git a/ba/ba1100.cpp b/ba/ba1100.cpp
index 942a4ced0..69e2978ab 100755
--- a/ba/ba1100.cpp
+++ b/ba/ba1100.cpp
@@ -481,6 +481,21 @@ void TManutenzione_app::edit_riga (long riga_sel, TToken_string& riga)
     {
       f.packfile();
       f.packindex();
+      //Pack supplementare tramite FOXPRO (da togliere con CodeBase 6)
+#if XVT_OS == XVT_OS_WIN          
+      if (logicnum > 2 && logicnum < 6 && f.status() == NOERR)
+        if (fexist("packaga.exe"))
+        {
+          d.get(logicnum);
+          TFilename f_name(d.name());
+          f_name.ext("dbf");
+          f_name.replace('/','\\'); // A volte rimangono delle slash
+          TString cmd("packaga -t");
+          cmd << " " << f_name;
+          TExternal_app packapp(cmd);
+          packapp.run(FALSE,FALSE);
+        }
+#endif
     }
     else
       if (tasto == K_F6)
@@ -1024,7 +1039,7 @@ bool TManutenzione_app::menu(MENU_TAG m)
 
     case K_DEL: delete_riga(); break;
 
-    case K_ESC: done = TRUE; break;         
+    case K_ESC: done = TRUE; close_history(); break;         
       
     case K_F7: 
       update(); break;