diff --git a/compiler/ncgbas.pas b/compiler/ncgbas.pas
index bc10b45d8c..df8532b091 100644
--- a/compiler/ncgbas.pas
+++ b/compiler/ncgbas.pas
@@ -110,7 +110,9 @@ interface
 
       procedure ReLabel(var p:tasmsymbol);
         begin
-          if p.defbind = AB_LOCAL then
+          { Only relabel local tasmlabels }
+          if (p.defbind = AB_LOCAL) and
+             (p is tasmlabel) then
            begin
              if not assigned(p.altsymbol) then
                objectlibrary.GenerateAltSymbol(p);
@@ -288,7 +290,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.27  2002-11-27 02:37:13  peter
+  Revision 1.28  2002-11-27 15:33:19  peter
+    * fixed relabeling to relabel only tasmlabel (formerly proclocal)
+
+  Revision 1.27  2002/11/27 02:37:13  peter
     * case statement inlining added
     * fixed inlining of write()
     * switched statementnode left and right parts so the statements are