diff --git a/parser.pas b/parser.pas
index c395057..038b236 100644
--- a/parser.pas
+++ b/parser.pas
@@ -1003,6 +1003,7 @@ end; {DoConstant}
           objlevel := 1;
           objparent := nil;
 	  size := ptrsize;
+          hasSFile := false;
 	  end; {with}
 
         {handle inheritance}