diff --git a/ba/ba0.cpp b/ba/ba0.cpp
index 63511b649..7b447b0fc 100755
--- a/ba/ba0.cpp
+++ b/ba/ba0.cpp
@@ -219,6 +219,8 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
     dir.get(i, _nolock, _nordir, _sysdirop);
     rec.get(i);
     prefhndl->set_codditta(codditta);
+    dir.put(i, _nordir, _sysdirop);
+    rec.put(i);
     const char* name = dir.name();
     dir.flags() = 0L;
     const bool valid_file = *name > ' ' && dir.len() > 0;
@@ -226,8 +228,6 @@ bool TMenu_application::build_firm_data(long codditta, bool flagcom)
     
     if (valid_file && create_now)
     {
-      dir.put(i, _nordir, _sysdirop);
-      rec.put(i);
       TSystemisamfile f(i);
       f.build(30);
     }