diff --git a/debugger/exceptiondlg.lfm b/debugger/exceptiondlg.lfm
index 3fce9ab51f..5194074362 100644
--- a/debugger/exceptiondlg.lfm
+++ b/debugger/exceptiondlg.lfm
@@ -1,4 +1,4 @@
-object ExceptionDialog: TExceptionDialog
+object IDEExceptionDlg: TIDEExceptionDlg
   Left = 479
   Height = 113
   Top = 376
@@ -6,7 +6,7 @@ object ExceptionDialog: TExceptionDialog
   AutoSize = True
   BorderIcons = [biSystemMenu]
   BorderStyle = bsDialog
-  Caption = 'ExceptionDialog'
+  Caption = 'IDEExceptionDlg'
   ClientHeight = 113
   ClientWidth = 612
   Position = poScreenCenter
diff --git a/debugger/exceptiondlg.lrs b/debugger/exceptiondlg.lrs
index bc1ea51a3c..681971b32f 100644
--- a/debugger/exceptiondlg.lrs
+++ b/debugger/exceptiondlg.lrs
@@ -1,9 +1,10 @@
 { This is an automatically generated lazarus resource file }
 
-LazarusResources.Add('TExceptionDialog','FORMDATA',[
-  'TPF0'#16'TExceptionDialog'#15'ExceptionDialog'#4'Left'#3#223#1#6'Height'#2'q'
+
+LazarusResources.Add('TIDEExceptionDlg','FORMDATA',[
+  'TPF0'#16'TIDEExceptionDlg'#15'IDEExceptionDlg'#4'Left'#3#223#1#6'Height'#2'q'
   +#3'Top'#3'x'#1#5'Width'#3'd'#2#8'AutoSize'#9#11'BorderIcons'#11#12'biSystemM'
-  +'enu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#15'ExceptionDialog'#12'Cl'
+  +'enu'#0#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#15'IDEExceptionDlg'#12'Cl'
   +'ientHeight'#2'q'#11'ClientWidth'#3'd'#2#8'Position'#7#14'poScreenCenter'#10
   +'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#10'lblMessage'#22'AnchorSideLeft.Contro'
   +'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#6#6'Height'#2
diff --git a/debugger/exceptiondlg.pas b/debugger/exceptiondlg.pas
index 3faa5599c2..453868aeb1 100644
--- a/debugger/exceptiondlg.pas
+++ b/debugger/exceptiondlg.pas
@@ -33,9 +33,9 @@ uses
 
 type
   
-  { TExceptionDialog }
+  { TIDEExceptionDlg }
 
-  TExceptionDialog = class(TForm)
+  TIDEExceptionDlg = class(TForm)
     btnBreak: TBitBtn;
     btnContinue: TBitBtn;
     cbIgnoreExceptionType: TCheckBox;
@@ -53,9 +53,9 @@ implementation
 
 function ExecuteExceptionDialog(AMessage: String; out IgnoreException: Boolean): TModalResult;
 var
-  ADialog: TExceptionDialog;
+  ADialog: TIDEExceptionDlg;
 begin
-  ADialog := TExceptionDialog.Create(Application);
+  ADialog := TIDEExceptionDlg.Create(Application);
   try
     Result := ADialog.Execute(AMessage, IgnoreException);
   finally
@@ -63,9 +63,9 @@ begin
   end;
 end;
 
-{ TExceptionDialog }
+{ TIDEExceptionDlg }
 
-constructor TExceptionDialog.Create(AOwner: TComponent);
+constructor TIDEExceptionDlg.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
   Caption := lisExceptionDialog;
@@ -77,7 +77,7 @@ begin
   btnContinue.LoadGlyphFromLazarusResource('menu_run');
 end;
 
-function TExceptionDialog.Execute(AMessage: String; out IgnoreException: Boolean): TModalResult;
+function TIDEExceptionDlg.Execute(AMessage: String; out IgnoreException: Boolean): TModalResult;
 begin
   lblMessage.Caption := AMessage;
   Result := ShowModal;