diff --git a/Asm.pas b/Asm.pas
index 2bf0838..3530750 100644
--- a/Asm.pas
+++ b/Asm.pas
@@ -224,6 +224,7 @@ var
             size := longAddress;
          end {if}
       else begin
+         id^.used := true;
          operand.symbolPtr := id;
          if id^.storage in [stackFrame,parameter] then begin
             code^.slab := id^.lln;