anchor.diff:    // get system default font spec
     // as default default ;)
     FPGuiFontToFontSpec( fpgApplication.DefaultFont, FDefaultFontSpec );
  +  if FDefaultFontSpec.FaceName = '' then
  +    raise Exception.Create('For some reason we could not create a FDefaultFontSpec instance');
   end;
   
   // Destructor
  
positive.code: // TLogicalFont
  //------------------------------------------------------------------------
  
  constructor TLogicalFont.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FontType := ftOutline;
    PointSize := 10;
    Attributes := [];
  
negative.code:     UseFaceName := SubstituteBitmapFontToOutline( FontSpec.FaceName )
    else
      UseFaceName := FontSpec.FaceName;
  ProfileEvent('UseFaceName=' + UseFaceName);
  
    if FontSpec.Attributes <> [] then
    begin
  profileevent('FontSpec.Attributes are not blank');
      BaseFontIsBitmapFont := false;
      if FAllowBitmapFonts then
      begin
  