diff --git a/ve/ve4100.cpp b/ve/ve4100.cpp
index 54ea4d182..486253caa 100755
--- a/ve/ve4100.cpp
+++ b/ve/ve4100.cpp
@@ -301,7 +301,7 @@ protected:
   TRelation_description& get_des() const;
   TRelation&      get_rel() const;
   const TRectype& get_rec() const;
-  const RecDes*   get_rec_des() const;
+  const RecDes&   get_rec_des() const;
   TToken_string&  get_key_expr(int k);     
   
   TRelation& create_relation();
@@ -358,7 +358,7 @@ const TRectype& TRicalcolo_mask::get_rec() const
   return get_rel().lfile().curr();
 }
 
-const RecDes* TRicalcolo_mask::get_rec_des() const
+const RecDes& TRicalcolo_mask::get_rec_des() const
 {     
   return get_rec().rec_des();
 }
@@ -368,12 +368,12 @@ TToken_string& TRicalcolo_mask::get_key_expr(int key)
   _key_expr.cut(0);
   if (key > 0)
   {
-    const RecDes* rd = get_rec_des();
-    const KeyDes& kd = rd->Ky[key-1];
+    const RecDes& rd = get_rec_des();
+    const KeyDes& kd = rd.Ky[key-1];
     for (int i = 0; i < kd.NkFields; i++)
     {
       const int nf = kd.FieldSeq[i] % MaxFields;
-      const RecFieldDes& rf = rd->Fd[nf];  
+      const RecFieldDes& rf = rd.Fd[nf];  
       _key_expr.add(rf.Name);
     }
   }  
@@ -604,8 +604,8 @@ bool TRicalcolo_mask::file_handler(TMask_field& f, KEY k)
     if (n != m._cur_file)
     {
       m._cur_file = n;
-      const RecDes* rd = m.get_rec_des();
-      const int keys = rd->NKeys;
+      const RecDes& rd = m.get_rec_des();
+      const int keys = rd.NKeys;
 
       TToken_string codes(16);
       TToken_string values(80);
@@ -619,7 +619,7 @@ bool TRicalcolo_mask::file_handler(TMask_field& f, KEY k)
         values.add(tmp);
       }
 
-      TList_field& lk = (TList_field&)m.field(F_KEY);
+      TList_field& lk = m.lfield(F_KEY);
       lk.replace_items(codes, values);
     }  
   }