diff --git a/ba/ba1500.cpp b/ba/ba1500.cpp
index 204727c72..ffec9412e 100755
--- a/ba/ba1500.cpp
+++ b/ba/ba1500.cpp
@@ -32,6 +32,7 @@ TInformazione_moduli::TInformazione_moduli()
   char _buffer[256];
   TString  s;
   TToken_string t;
+  TString_array descs;
   
   _unassigned_modules = 0;
   ifstream  in("prassi.aut");
@@ -52,7 +53,11 @@ TInformazione_moduli::TInformazione_moduli()
       t = " "; t.add(" ");
       _unassigned_modules++;
     }
-    t.add(mod++);
+    t.add(mod++); 
+    TString d(t.get(0));
+    descs.add(d);
+    d.upper();
+    t.add(d, 0);
     _infos.add(t);
   }
   
@@ -63,7 +68,10 @@ TInformazione_moduli::TInformazione_moduli()
   for (int i=0;i<mod;i++)
   {
     TToken_string& riga = _infos.row(i);
-    _index[atoi(riga.get(2))] = i;
+    const int mod = riga.get_int(2);
+    _index[mod] = i;         
+    const TString d(descs.row(mod).get(0));
+    riga.add(d, 0);
   }
 }