diff --git a/components/fpspreadsheet/examples/read_write/opendocdemo/opendocwrite.lpr b/components/fpspreadsheet/examples/read_write/opendocdemo/opendocwrite.lpr
index da1e9da80..fe7f59789 100644
--- a/components/fpspreadsheet/examples/read_write/opendocdemo/opendocwrite.lpr
+++ b/components/fpspreadsheet/examples/read_write/opendocdemo/opendocwrite.lpr
@@ -43,6 +43,7 @@ begin
   MyWorksheet.WriteNumber(0, 1, 2.0);       // B1
   MyWorksheet.WriteNumber(0, 2, 3.0);       // C1
   MyWorksheet.WriteNumber(0, 3, 4.0);       // D1
+
   MyWorksheet.WriteText(4, 2, 'Total:');    // C5
   MyWorksheet.WriteNumber(4, 3, 10);        // D5
   MyWorksheet.WriteDateTime(5, 0, now);
@@ -281,7 +282,7 @@ begin
   MyWorksheet := MyWorkbook.AddWorksheet('My Worksheet 2');
 
   // Save the spreadsheet to a file
-  MyWorkbook.WriteToFile(MyDir + 'test.ods', sfOpenDocument);
+  MyWorkbook.WriteToFile(MyDir + 'test1.ods', sfOpenDocument, true);
   MyWorkbook.Free;
 end.
 
diff --git a/components/fpspreadsheet/fpsopendocument.pas b/components/fpspreadsheet/fpsopendocument.pas
index 2b08672f0..47cd6bfc0 100755
--- a/components/fpspreadsheet/fpsopendocument.pas
+++ b/components/fpspreadsheet/fpsopendocument.pas
@@ -5257,9 +5257,10 @@ begin
 
     // Look for the row style of the current row (r)
     row := ASheet.FindRow(r);
-    if row = nil then
-      styleName := 'ro1'
-    else
+    if row = nil then begin
+      styleName := 'ro1';
+      h := ASheet.ReadDefaultRowHeight(FWorkbook.Units);
+    end else
     begin
       styleName := '';