diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 326e4572..c259f3f5 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -903,8 +903,7 @@ begin
     fBtns[aCtxt].Click;
   if fastDisplay then
     IncLoopUpdate;
-  item := List.Items.Add(nil, msg);
-  item.Data := dt;
+  item := List.Items.AddObject(nil, msg, dt);
   item.ImageIndex := iconIndex(aKind);
   item.SelectedIndex := item.ImageIndex;
   if not fastDisplay then