diff --git a/components/codetools/codetoolmanager.pas b/components/codetools/codetoolmanager.pas
index 0575af5d4b..54e2f4bd67 100644
--- a/components/codetools/codetoolmanager.pas
+++ b/components/codetools/codetoolmanager.pas
@@ -414,7 +414,9 @@ begin
           +' '+AnException.Message;
       end;
     end;
-    WriteDebugReport(true,false,false,false,false);
+{$IFDEF CTDEBUG}
+WriteDebugReport(true,false,false,false,false);
+{$ENDIF}
     writeln('### TCodeToolManager.HandleException: '+AnException.Message);
   end;
   if not FCatchExceptions then raise AnException;