diff --git a/docs/xml/lcl/interfacebase.xml b/docs/xml/lcl/interfacebase.xml
index cbdc1ceae8..e9f125330b 100644
--- a/docs/xml/lcl/interfacebase.xml
+++ b/docs/xml/lcl/interfacebase.xml
@@ -687,32 +687,6 @@
       <element name="TWidgetSet.GetLCLCapability.ACapability">
         <short></short>
       </element>
-      <!-- procedure Visibility: public -->
-      <element name="TWidgetSet.DebugLogLn">
-        <short></short>
-        <descr>
-        </descr>
-        <errors>
-        </errors>
-        <seealso>
-        </seealso>
-      </element>
-      <element name="TWidgetSet.DebugLogLn.s">
-        <short></short>
-      </element>
-      <!-- procedure Visibility: public -->
-      <element name="TWidgetSet.DebugLog">
-        <short></short>
-        <descr>
-        </descr>
-        <errors>
-        </errors>
-        <seealso>
-        </seealso>
-      </element>
-      <element name="TWidgetSet.DebugLog.s">
-        <short></short>
-      </element>
       <!-- function Visibility: public -->
       <element name="TWidgetSet.DCGetPixel">
         <short></short>
diff --git a/lcl/include/interfacebase.inc b/lcl/include/interfacebase.inc
index 1063a0136e..0557a2127f 100644
--- a/lcl/include/interfacebase.inc
+++ b/lcl/include/interfacebase.inc
@@ -104,18 +104,6 @@ begin
   end;
 end;
 
-procedure TWidgetSet.DebugLogLn(const s: string);
-begin
-  if Assigned(LCLProc.DebugText) then
-    WriteLn(LCLProc.DebugText^, s);
-end;
-
-procedure TWidgetSet.DebugLog(const s: string);
-begin
-  if Assigned(LCLProc.DebugText) then
-    Write(LCLProc.DebugText^, s);
-end;
-
 procedure TWidgetSet.DCSetAntialiasing(CanvasHandle: HDC; AEnabled: Boolean);
 begin
 end;
diff --git a/lcl/interfacebase.pp b/lcl/interfacebase.pp
index 3ff9987446..4514106165 100644
--- a/lcl/interfacebase.pp
+++ b/lcl/interfacebase.pp
@@ -162,9 +162,6 @@ type
     function  LCLPlatform: TLCLPlatform; virtual; abstract;
     function  GetLCLCapability(ACapability: TLCLCapability): PtrUInt; virtual;
 
-    procedure DebugLogLn(const s: string); virtual;
-    procedure DebugLog(const s: string); virtual;
-
     function  DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; virtual; abstract;
     procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); virtual; abstract;
     procedure DCRedraw(CanvasHandle: HDC); virtual; abstract;