diff --git a/ba/ba2400.cpp b/ba/ba2400.cpp
index 063060bc0..735358d8c 100755
--- a/ba/ba2400.cpp
+++ b/ba/ba2400.cpp
@@ -144,6 +144,7 @@ public:
 
 bool TForm_printer::create()
 {
+  TString16 cod_prof;
   TApplication::create();
   
   if (argc() < 3)
@@ -157,7 +158,8 @@ bool TForm_printer::create()
     return error_box("Il profilo %s non esiste", (const char*)form); 
   form.ext("");
   _tabcom = new TLocalisamfile(LF_TABCOM);
-  TTab_form f(form, (code != 0) ? format("%05ld",code) : "");
+  cod_prof.format("%05ld",code);
+  TTab_form f(form, (code != 0) ? cod_prof : "");
   f.print();  
   stop_run();
   return TRUE;