diff --git a/components/fpdebug/fpdbglinuxclasses.pas b/components/fpdebug/fpdbglinuxclasses.pas
index 4a87f464e2..c7e82a1cbb 100644
--- a/components/fpdebug/fpdbglinuxclasses.pas
+++ b/components/fpdebug/fpdbglinuxclasses.pas
@@ -261,6 +261,7 @@ type
     function GetStackPointerRegisterValue: TDbgPtr; override;
     function GetStackBasePointerRegisterValue: TDbgPtr; override;
     procedure TerminateProcess; override;
+    function Pause: boolean; override;
 
     function Continue(AProcess: TDbgProcess; AThread: TDbgThread; SingleStep: boolean): boolean; override;
     function WaitForDebugEvent(out ProcessIdentifier, ThreadIdentifier: THandle): boolean; override;
@@ -711,6 +712,15 @@ begin
     end;
 end;
 
+function TDbgLinuxProcess.Pause: boolean;
+begin
+  result := fpkill(ProcessID, SIGTRAP)=0;
+  if not result then
+    begin
+    log('Failed to send SIGTRAP to process %d. Errno: %d',[ProcessID, errno]);
+    end;
+end;
+
 function TDbgLinuxProcess.Continue(AProcess: TDbgProcess; AThread: TDbgThread; SingleStep: boolean): boolean;
 var
   e: integer;