diff --git a/ide/main.pp b/ide/main.pp
index a187044fd8..1d8ff1f94f 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -364,7 +364,7 @@ type
     procedure mnuToolConfigBuildLazClicked(Sender: TObject);
     procedure mnuCustomExtToolClick(Sender: TObject);
 
-    // environment menu
+    // options menu
     procedure mnuEnvGeneralOptionsClicked(Sender: TObject);
     procedure mnuEnvEditorOptionsClicked(Sender: TObject);
     procedure mnuEnvCodeTemplatesClicked(Sender: TObject);
diff --git a/ide/project.pp b/ide/project.pp
index 42f1ab8771..7422126d2e 100644
--- a/ide/project.pp
+++ b/ide/project.pp
@@ -3870,6 +3870,13 @@ end;
 
 procedure TProject.SetModified(const AValue: boolean);
 begin
+  {$IFDEF VerboseTProjectSetModified}
+  if (not Modified) and AValue then begin
+    debugln(['TProject.SetModified ']);
+    DumpStack;
+  end;
+  {$ENDIF}
+
   if fDestroying then exit;
   inherited SetModified(AValue);
   if not AValue then