diff --git a/include/isam.cpp b/include/isam.cpp
index c977f7cdc..798dd95ad 100755
--- a/include/isam.cpp
+++ b/include/isam.cpp
@@ -2337,20 +2337,23 @@ int TSystemisamfile::packindex(
 // @xref <mf TSystemisamfile::packfile>
   
 {
-  int err=NOERR;
+  int err = NOERR;
   TRecnotype peod;
   TTrec r;
   TDir  d;
   
   r.get(num());                
-  d.get(num(),_nolock, _nordir,_sysdirop);               
+  d.get(num(), _nolock, _nordir, _sysdirop);               
   bool is_com = d.is_com();
-  d.get(num(),_nolock, is_com ? _comdir : _nordir);
-  err=DB_packindex(vis,d.name(),r.rec(),&peod,ask);
+  d.get(num(), _nolock, is_com ? _comdir : _nordir);
+  err = DB_packindex(vis, d.name(), r.rec(), &peod, ask);
   if (err != NOERR) 
     err = get_error(err);
   if (err != NOERR) 
-    error_box("Errore in compattamento indici.\nFile %d : %d", num(),err);
+  {
+    if (vis)
+      error_box("Errore in compattamento indici.\nFile %d : %d", num(),err);
+  }
   else
     if (peod >= 0 && peod != d.eod())
     {