diff --git a/debugger/threaddlg.pp b/debugger/threaddlg.pp
index 416fb5b954..07c7e10ccb 100644
--- a/debugger/threaddlg.pp
+++ b/debugger/threaddlg.pp
@@ -235,12 +235,12 @@ var
   Entry: TIdeThreadEntry;
   Item: TListItem;
 begin
-  if (DebugBoss = nil) or (DebugBoss.Debugger = nil) then begin
+  if (DebugBoss = nil) or (DebugBoss.DebuggerClass = nil) then begin
     tbSuspend.Visible := False;
     exit;
   end;
 
-  tbSuspend.Visible := dfThreadSuspension in DebugBoss.Debugger.SupportedFeatures;
+  tbSuspend.Visible := dfThreadSuspension in DebugBoss.DebuggerClass.SupportedFeatures;
   tbSuspend.Caption := drsSuspend;
   tbSuspend.Enabled := False;