diff --git a/sc/sc2100.cpp b/sc/sc2100.cpp
index 41385ad8e..6d3eca1a0 100755
--- a/sc/sc2100.cpp
+++ b/sc/sc2100.cpp
@@ -991,7 +991,7 @@ void TEC_form::init_header(const TMask& m)
 }
 
 TEC_form::TEC_form(const TEC_mask& m, bool gesval)
-        : TForm(BASE_EC_PROFILE, m.get_prof_code()), 
+        : TForm(BASE_EC_PROFILE, m.get_prof_name()), 
           _in_valuta(FALSE), _num_rip(0), _total_rows(0),
           _causali(LF_CAUSALI, CAU_CODCAUS, CAU_DESCR),
           _movimenti(LF_MOV, MOV_NUMREG, MOV_DESCR),
diff --git a/sc/sc2101.cpp b/sc/sc2101.cpp
index def1b41ab..6f40b47eb 100755
--- a/sc/sc2101.cpp
+++ b/sc/sc2101.cpp
@@ -47,3 +47,12 @@ const TString& TEC_mask::get_prof_lang() const
 {
   return get(F_LINPROF);
 }
+
+const char* TEC_mask::get_prof_name() const
+{                
+  TFixed_string tmp(__tmp_string, 16);
+  tmp = get_prof_code();
+  tmp << get_prof_lang();
+  return __tmp_string;
+}
+
diff --git a/sc/sc2101.h b/sc/sc2101.h
index 64751e0d9..eeb4c499e 100755
--- a/sc/sc2101.h
+++ b/sc/sc2101.h
@@ -17,6 +17,7 @@ public:
   const char* get_prof_base() const;
   const TString& get_prof_code() const;
   const TString& get_prof_lang() const;
+  const char* get_prof_name() const;
 
   TEC_mask(const char* name); 
   virtual ~TEC_mask();