diff --git a/src/ce_messages.pas b/src/ce_messages.pas
index 914b845f..6f136023 100644
--- a/src/ce_messages.pas
+++ b/src/ce_messages.pas
@@ -335,7 +335,7 @@ end;
 procedure TCEMessagesWidget.docClosing(const aDoc: TCESynMemo);
 begin
   if aDoc <> fDoc then exit;
-  lmClearbyData(@fDoc);
+  lmClearbyData(fDoc);
   fDoc := nil;
   filterMessages(fCtxt);
 end;