anchor.diff:    FClassName := AClassName;
     FMethodName := AMethodName;
     {$IFDEF DEBUG}
  -  Writeln(Format('%s>> %s.%s', [spacing, FClassName, FMethodName]));
  +  SendDebug(Format('%s>> %s.%s', [spacing, FClassName, FMethodName]));
     {$ENDIF}
   end;
   
   destructor TPrintCallTrace.Destroy;
   begin
     {$IFDEF DEBUG}
  -  Writeln(Format('%s<< %s.%s', [spacing, FClassName, FMethodName]));
  +  SendDebug(Format('%s<< %s.%s', [spacing, FClassName, FMethodName]));
     {$ENDIF}
     dec(iCallTrace);
     inherited Destroy;
  
positive.code:     {$Note This occurs every now and again with TfpgMemo and CaretInvert painting! }
      // Investigate this.
      {$IFDEF DEBUG}
      writeln('TfpgCaret.InvertCaret cause an exception');
      {$ENDIF}
    end;
  end;
  
negative.code: {$ifdef AGGCanvas}
    Agg2D,
  {$endif}
  {$IFDEF DEBUG}
    dbugintf,
  {$ENDIF}
    fpg_imgfmt_bmp,
    fpg_stdimages,
    fpg_translations,
  