diff --git a/include/isam.cpp b/include/isam.cpp
index e38944735..66f9676b3 100755
--- a/include/isam.cpp
+++ b/include/isam.cpp
@@ -2254,6 +2254,12 @@ int TSystemisamfile::packfile(
   return err;
 }
 
+int TSystemisamfile::zap()
+{
+  safely_close_closeable_isamfiles();
+  return packfile(TRUE, TRUE);
+}
+
 // @doc EXTERNAL
 
 // @mfunc Rimuove fisicamente gli indici cancellati
diff --git a/include/isam.h b/include/isam.h
index 86dfed9b4..73821e194 100755
--- a/include/isam.h
+++ b/include/isam.h
@@ -593,6 +593,8 @@ public:
   int packfile(bool vis = FALSE, bool zap = FALSE);
   // @cmember Rimuove fisicamente gli indici cancellati
   int packindex(bool vis = FALSE, bool ask = TRUE);
+  // @cmember Rimuove fisicamente tutti i records e gli indici
+  int zap();
 
   // @cmember Importa un file ascii
   int load(const char* from, char fs = '|', char fd = '\0', char rs = '\n', bool vis = TRUE, bool extended = FALSE) ;