diff --git a/Parser.pas b/Parser.pas
index fdc6730..81a8c7c 100644
--- a/Parser.pas
+++ b/Parser.pas
@@ -3030,6 +3030,7 @@ if isconstant then begin                {handle a constant type}
          size := typeSpec^.size;
          kind := definedType;
          dType := typeSpec;
+         saveDisp := 0;
          end; {with}
       end {if}
    else