diff --git a/src/ce_messages.lfm b/src/ce_messages.lfm
index ea27dc6e..b5f12780 100644
--- a/src/ce_messages.lfm
+++ b/src/ce_messages.lfm
@@ -24,7 +24,7 @@ inherited CEMessagesWidget: TCEMessagesWidget
         Width = 759
         Align = alClient
         BorderSpacing.Around = 2
-        DefaultItemHeight = 16
+        DefaultItemHeight = 18
         Font.Height = -12
         Font.Name = 'Courier New'
         Font.Quality = fqProof
diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 953dee46..f4ff4b44 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -777,6 +777,7 @@ var
   msgdt: PMessageData;
 begin
   list.BeginUpdate;
+  TreeFilterEdit1.Filter := '';
   if aCtxt = amcAll then
     List.Items.Clear
   else for i := List.Items.Count-1 downto 0 do