diff --git a/components/fpspreadsheet/examples/spready/spready.lpi b/components/fpspreadsheet/examples/spready/spready.lpi
index 28c472d11..a15f17ce2 100644
--- a/components/fpspreadsheet/examples/spready/spready.lpi
+++ b/components/fpspreadsheet/examples/spready/spready.lpi
@@ -25,6 +25,7 @@
           </Target>
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="../.."/>
             <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
           <Parsing>
diff --git a/components/fpspreadsheet/fpsutils.pas b/components/fpspreadsheet/fpsutils.pas
index f95ea42a9..c5fd9da29 100644
--- a/components/fpspreadsheet/fpsutils.pas
+++ b/components/fpspreadsheet/fpsutils.pas
@@ -130,6 +130,7 @@ function HTMLLengthStrToPts(AValue: String): Double;
 function HTMLColorStrToColor(AValue: String): TsColorValue;
 function ColorToHTMLColorStr(AValue: TsColorValue; AExcelDialect: Boolean = false): String;
 function UTF8TextToXMLText(AText: ansistring): ansistring;
+function TintedColor(AColor: TsColorValue; tint: Double): TsColorValue;
 
 function AnalyzeCompareStr(AString: String; out ACompareOp: TsCompareOperation): String;
 
@@ -139,12 +140,13 @@ procedure AppendToStream(AStream: TStream; const AString1, AString2, AString3: S
 
 function PosInMemory(AMagic: QWord; ABuffer: PByteArray; ABufSize: Integer): Integer;
 
-function TintedColor(AColor: TsColorValue; tint: Double): TsColorValue;
-
 procedure Unused(const A1);
 procedure Unused(const A1, A2);
 procedure Unused(const A1, A2, A3);
 
+{ For debugging purposes }
+procedure DumpFontsToFile(AWorkbook: TsWorkbook; AFileName: String);
+
 var
   ScreenPixelsPerInch: Integer = 96;
 
@@ -2134,6 +2136,7 @@ begin
   TRGBA(Result).a := 0;
 end;
 
+
 {$PUSH}{$HINTS OFF}
 {@@ Silence warnings due to an unused parameter }
 procedure Unused(const A1);
@@ -2154,5 +2157,40 @@ begin
 end;
 {$POP}
 
+
+{ For debugging only }
+
+{@@ Write the fonts stored for a given workbook to a file. }
+procedure DumpFontsToFile(AWorkbook: TsWorkbook; AFileName: String);
+var
+  L: TStringList;
+  i: Integer;
+  fnt: TsFont;
+begin
+  L := TStringList.Create;
+  try
+    for i:=0 to AWorkbook.GetFontCount-1 do begin
+      fnt := AWorkbook.GetFont(i);
+      if fnt = nil then
+        L.Add(Format('#%.3d: ---------------', [i]))
+      else
+        L.Add(Format('#%.3d: %-15s %4.1f %s%s%s%s %s', [
+          i,
+          fnt.FontName,
+          fnt.Size,
+          IfThen(fssBold in fnt.Style, 'b', '.'),
+          IfThen(fssItalic in fnt.Style, 'i', '.'),
+          IfThen(fssUnderline in fnt.Style, 'u', '.'),
+          IfThen(fssStrikeOut in fnt.Style, 's', '.'),
+          AWorkbook.GetPaletteColorAsHTMLStr(fnt.Color)
+        ]));
+    end;
+    L.SaveToFile(AFileName);
+  finally
+    L.Free;
+  end;
+end;
+
+
 end.
 
diff --git a/components/fpspreadsheet/xlsxooxml.pas b/components/fpspreadsheet/xlsxooxml.pas
index 63805e769..74edf1ba1 100755
--- a/components/fpspreadsheet/xlsxooxml.pas
+++ b/components/fpspreadsheet/xlsxooxml.pas
@@ -1034,8 +1034,9 @@ begin
     node := node.NextSibling;
   end;
 
-  if FWorkbook.FindFont(fntName, fntSize, fntStyles, fntColor) = -1 then
-    FWorkbook.AddFont(fntName, fntSize, fntStyles, fntColor);
+  { We must not check for duplicate fonts here because then we cannot reconstruct
+    the correct font id later }
+  FWorkbook.AddFont(fntName, fntSize, fntStyles, fntColor);
 end;
 
 procedure TsSpreadOOXMLReader.ReadFonts(ANode: TDOMNode);