diff --git a/src/ce_tools.pas b/src/ce_tools.pas
index 36b69786..4773d8bf 100644
--- a/src/ce_tools.pas
+++ b/src/ce_tools.pas
@@ -20,6 +20,7 @@ type
     fParameters: TStringList;
     fToolAlias: string;
     fQueryParams: boolean;
+    fClearMessages: boolean;
     fChainBefore: TStringList;
     fChainAfter: TStringList;
     fShortcut: TShortcut;
@@ -37,6 +38,7 @@ type
     property parameters: TStringList read fParameters write setParameters;
     property showWindows: TShowWindowOptions read fShowWin write fShowWin;
     property queryParameters: boolean read fQueryParams write fQueryParams;
+    property clearMessages: boolean read fClearMessages write fClearMessages;
     property chainBefore: TStringList read fChainBefore write setchainBefore;
     property chainAfter: TStringList read fChainAfter write setChainAfter;
     property shortcut: TShortcut read fShortcut write fShortcut;
@@ -135,6 +137,9 @@ var
 begin
   killProcess(fProcess);
   //
+  if fClearMessages then
+    getMessageDisplay(fMsgs).clearByContext(amcMisc);
+  //
   fProcess := TCheckedAsyncProcess.Create(nil);
   fProcess.OnReadData:= @processOutput;
   fProcess.OnTerminate:= @processOutput;