anchor.diff:    s: TfpgString;
   begin
     s := pcEditor.ActivePage.Hint;
  -  writeln('adding unit: ', s);
  +//  writeln('adding unit: ', s);
     if s = '' then
       Exit;
     if GProject.UnitList.FileExists(s) then
  
positive.code:     procedure   CloseAllTabs;
      procedure   OpenEditorPage(const AFilename: TfpgString);
      procedure   miTest(Sender: TObject);
      procedure   UpdateWindowTitle;
    public
      constructor Create(AOwner: TComponent); override;
  
negative.code:   writeln('source string = ', s);
    r := GMacroList.ExpandMacro(s);
    writeln('expanded string = ', r);
  end;
  
  function TMainForm.GetUnitsNode: TfpgTreeNode;
  begin
    Result := tvProject.RootNode.FindSubNode('Units', True);
  end;
  
  procedure TMainForm.UpdateWindowTitle;
  