diff --git a/compiler/pexpr.pas b/compiler/pexpr.pas
index cf1c46afd1..c2eff2b618 100644
--- a/compiler/pexpr.pas
+++ b/compiler/pexpr.pas
@@ -128,6 +128,8 @@ unit pexpr;
                { support if procvar then for tp7 and many other expression like this }
                do_firstpass(p);
                set_varstate(p,false);
+               { reset varstateset to maybe set used state later web bug769 PM }
+               p^.varstateset:=false;
                if not(getprocvar) and (p^.resulttype^.deftype=procvardef) then
                  begin
                     p1:=gencallnode(nil,nil);
@@ -2098,7 +2100,10 @@ _LECKKLAMMER : begin
 end.
 {
   $Log$
-  Revision 1.163  1999-12-01 12:42:32  peter
+  Revision 1.164  1999-12-20 21:24:29  pierre
+   * web bug769 fix
+
+  Revision 1.163  1999/12/01 12:42:32  peter
     * fixed bug 698
     * removed some notes about unused vars