anchor.diff:        FPGuiFontToFontSpec( fpgApplication.DefaultFont, lDefaultFontSpec );
         Font := GetFont( lDefaultFontSpec );
         if Font = nil then
  -        // Jimminy! We can't even get the default system font
  +        // WTF! We can't even get the default system font
           raise Exception.Create( 'Could not access default font '
                                   + 'in place of '
                                   + FontSpec.FaceName
  
positive.code: 
    SelectFont( Font, 1 );
    FCurrentFontSpec := FontSpec;
    FCurrentFont.Free;
    FCurrentFont := Font;
  ProfileEvent('DEBUG:  TCanvasFontManager.SetFont <<<<');
  end;
  
negative.code:     // ack! Pfffbt! Couldn't find the font.
  
      // Try to get the default font
      //writeln('---------- here goes nothing -------------');
      Font := GetFont( FDefaultFontSpec );
      if Font = nil then
      begin
  