diff --git a/src/ce_main.pas b/src/ce_main.pas
index 080ea450..4d45a812 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1728,8 +1728,8 @@ end;
 procedure TCEMainForm.actFileAddToProjExecute(Sender: TObject);
 begin
   if fDoc.isNil then exit;
-  if fDoc.isProjectFile then exit;
   if fProjectInterface = nil then exit;
+  if fProjectInterface.filename = fDoc.fileName then exit;
   //
   if fProjectInterface.getFormat = pfNative then
   begin
diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 5ee2a272..3ba90bb1 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -112,7 +112,6 @@ type
     fCacheLoaded: boolean;
     fIsDSource: boolean;
     fIsTxtFile: boolean;
-    fIsConfig: boolean;
     fFocusForInput: boolean;
     fIdentifier: string;
     fTempFileName: string;
@@ -216,7 +215,6 @@ type
     property completionMenu: TSynCompletion read fCompletion;
     property syncroEdit: TSynPluginSyncroEdit read fSyncEdit;
     property isDSource: boolean read fIsDSource;
-    property isProjectFile: boolean read fIsConfig; // warning: never set !
     property isTemporary: boolean read getIfTemp;
     property TextView;
     //
@@ -1435,7 +1433,7 @@ procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
 begin
   if Key = VK_RETURN then
   begin
-    if (fAutoCloseCurlyBrace in [autoCloseOnNewLineEof .. autoCloseOnNewLineLexically])then
+    if (fAutoCloseCurlyBrace in [autoCloseOnNewLineEof .. autoCloseOnNewLineLexically]) then
     case fAutoCloseCurlyBrace of
       autoCloseOnNewLineAlways: if (CaretX > 1) and (LineText[LogicalCaretXY.X - 1] = '{') then
       begin