diff --git a/Parser.pas b/Parser.pas
index 3f01793..df1a762 100644
--- a/Parser.pas
+++ b/Parser.pas
@@ -3702,7 +3702,9 @@ var
       else
          segmentKind := 0;
       defaultSegmentKind := segmentKind;
+      inhibitHeader := lInhibitHeader;
       Match(semicolonch,22);
+      inhibitHeader := true;
       end {if}
    else begin
       Error(83);