diff --git a/src/ce_dubproject.pas b/src/ce_dubproject.pas
index d76b95d9..78cb25ac 100644
--- a/src/ce_dubproject.pas
+++ b/src/ce_dubproject.pas
@@ -186,7 +186,7 @@ var
 begin
   result := false;
   msgs := getMessageDisplay;
-  msgs.clearByData(Self);
+  msgs.clearByData(Self as ICECommonProject);
   prjname := shortenPath(fFilename);
   dubproc := TProcess.Create(nil);
   getDir(0, olddir);
diff --git a/src/ce_nativeproject.pas b/src/ce_nativeproject.pas
index e1ef36e3..d2033b83 100644
--- a/src/ce_nativeproject.pas
+++ b/src/ce_nativeproject.pas
@@ -687,7 +687,7 @@ begin
     exit;
   end;
   //
-  msgs.clearByData(Self);
+  msgs.clearByData(self as ICECommonProject);
   subjProjCompiling(fProjectSubject, Self);
   //
   if not runPrePostProcess(config.preBuildProcess) then