diff --git a/compiler/hcgdata.pas b/compiler/hcgdata.pas
index 3c9ddc02f1..c0e03956e4 100644
--- a/compiler/hcgdata.pas
+++ b/compiler/hcgdata.pas
@@ -360,7 +360,7 @@ implementation
               hp:=pprocsym(p)^.definition;
               if assigned(hp^.nextoverloaded) then
                 internalerror(1209992);
-              getlabel(l);
+              getdatalabel(l);
 
               consts^.concat(new(pai_label,init(l)));
               consts^.concat(new(pai_const,init_8bit(length(p^.name))));
@@ -381,7 +381,7 @@ implementation
          _class^.symtable^.foreach({$ifndef TP}@{$endif}do_count);
          if count>0 then
            begin
-              getlabel(l);
+              getdatalabel(l);
               datasegment^.concat(new(pai_label,init(l)));
               datasegment^.concat(new(pai_const,init_32bit(count)));
               _class^.symtable^.foreach({$ifndef TP}@{$endif}genpubmethodtableentry);
@@ -731,7 +731,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.29  2000-06-20 12:47:52  pierre
+  Revision 1.30  2000-06-30 22:11:28  peter
+    * fixed some getlabel to getdatalabel
+
+  Revision 1.29  2000/06/20 12:47:52  pierre
     * equal_paras and convertable_paras changed by transforming third parameter
       into an enum with three possible values:
       cp_none, cp_value_equal_const and cp_all.
diff --git a/compiler/symdef.inc b/compiler/symdef.inc
index df70e03f3e..9bc94508fa 100644
--- a/compiler/symdef.inc
+++ b/compiler/symdef.inc
@@ -3972,8 +3972,8 @@ Const local_symtable_index : longint = $8001;
 
       begin
          classtablelist.init;
-         getlabel(fieldtable);
-         getlabel(classtable);
+         getdatalabel(fieldtable);
+         getdatalabel(classtable);
          count:=0;
          tablecount:=0;
          symtable^.foreach({$ifdef FPC}@{$endif}count_published_fields);
@@ -4130,7 +4130,10 @@ Const local_symtable_index : longint = $8001;
 
 {
   $Log$
-  Revision 1.204  2000-06-29 08:42:47  sg
+  Revision 1.205  2000-06-30 22:11:29  peter
+    * fixed some getlabel to getdatalabel
+
+  Revision 1.204  2000/06/29 08:42:47  sg
   * Fix for class field table writing
 
   Revision 1.203  2000/06/25 09:25:29  peter