anchor.diff:          TfpgMessageDialog.Critical('', E.Message);
         end;
       end;
  +    UpdateWindowTitle;
       AddMessage(Format('Project saved as <%s>.', [s]));
     end;
   end;
  
positive.code:     procedure   CloseAllTabs;
      procedure   OpenEditorPage(const AFilename: TfpgString);
      procedure   miTest(Sender: TObject);
    public
      constructor Create(AOwner: TComponent); override;
      procedure   AfterCreate; override;
  
negative.code:   writeln('source string = ', s);
    r := GMacroList.ExpandMacro(s);
    writeln('expanded string = ', r);
  end;
  
  procedure TMainForm.UpdateWindowTitle;
  begin
    WindowTitle := Format(cTitle, [GProject.ProjectName]);
  end;
  
  procedure TMainForm.FormShow(Sender: TObject);
  