diff --git a/ide/etmessageframe.pas b/ide/etmessageframe.pas
index f0d9414cf9..d57093cb49 100644
--- a/ide/etmessageframe.pas
+++ b/ide/etmessageframe.pas
@@ -1461,6 +1461,7 @@ end;
 
 procedure TMessagesCtrl.OnFilterChanged(Sender: TObject);
 begin
+  FSelectedLines.Clear;
   IdleConnected:=true;
 end;