diff --git a/ide/checklfmdlg.pas b/ide/checklfmdlg.pas
index aa0f7c3aac..51553e3542 100644
--- a/ide/checklfmdlg.pas
+++ b/ide/checklfmdlg.pas
@@ -416,7 +416,7 @@ begin
   if Code=nil then
     Code:=fPascalBuffer;
   Filename:=ExtractFilename(Code.Filename);
-  IDEMessagesWindow.AddCustomMessage(mluError,ErrorMessage,Filename,Y,X);
+  IDEMessagesWindow.AddCustomMessage(mluError,ErrorMessage,Filename,Y,X,'Codetools');
   Application.ProcessMessages;
 end;