diff --git a/components/fpspreadsheet/fpsopendocument.pas b/components/fpspreadsheet/fpsopendocument.pas
index 8005d9893..b6c807baf 100755
--- a/components/fpspreadsheet/fpsopendocument.pas
+++ b/components/fpspreadsheet/fpsopendocument.pas
@@ -24,6 +24,7 @@ unit fpsopendocument;
   {$mode delphi}
 {$endif}
 
+{.$define FPSPREADDEBUG} //used to be XLSDEBUG
 interface
 
 uses
@@ -343,7 +344,7 @@ begin
   Value:=GetAttrValue(ACellNode,'office:date-value');
   if Value<>'' then
   begin
-    {$IFDEF XLSDEBUG}
+    {$IFDEF FPSPREADDEBUG}
     writeln('Row (1based): ',ARow+1,'office:date-value: '+Value);
     {$ENDIF}
     // Date or date/time string
@@ -362,7 +363,7 @@ begin
     // Try time only, e.g. PT23H59M59S
     //                     12345678901
     Value:=GetAttrValue(ACellNode,'office:time-value');
-    {$IFDEF XLSDEBUG}
+    {$IFDEF FPSPREADDEBUG}
     writeln('Row (1based): ',ARow+1,'office:time-value: '+Value);
     {$ENDIF}
     if (Value<>'') and (Pos('PT',Value)=1) then
diff --git a/components/fpspreadsheet/xlsbiff8.pas b/components/fpspreadsheet/xlsbiff8.pas
index 4faeb09da..ce847bc4d 100755
--- a/components/fpspreadsheet/xlsbiff8.pas
+++ b/components/fpspreadsheet/xlsbiff8.pas
@@ -48,7 +48,7 @@ unit xlsbiff8;
 
 // The new OLE code is much better, so always use it
 {$define USE_NEW_OLE}
-{.$define XLSDEBUG}
+{.$define FPSPREADDEBUG} //used to be XLSDEBUG
 
 interface
 
@@ -2242,7 +2242,7 @@ begin
       end;
     end;
     FSharedStringTable.Add(LString);
-    {$ifdef XLSDEBUG}
+    {$ifdef FPSPREADDEBUG}
     WriteLn('Adding shared string: ' + LString);
     {$endif}
     dec(Items);
@@ -2369,7 +2369,7 @@ begin
 
   { Character set }
   lCodepage := AStream.ReadByte();
-  {$ifdef XLSDEBUG}
+  {$ifdef FPSPREADDEBUG}
   WriteLn('Reading Font Codepage='+IntToStr(lCodepage));
   {$endif}