diff --git a/src/ce_ceproject.pas b/src/ce_ceproject.pas
index 7d079ad3..e6dbb98d 100644
--- a/src/ce_ceproject.pas
+++ b/src/ce_ceproject.pas
@@ -818,6 +818,7 @@ begin
   fCompilProc := TCEProcess.Create(nil);
   subjProjCompiling(fProjectSubject, self as ICECommonProject);
   fMsgs.message('compiling ' + prjname, self as ICECommonProject, amcProj, amkInf);
+  fMsgs.message(usingCompilerInfo(CEProjectCompiler), self as ICECommonProject, amcProj, amkInf);
   // this doesn't work under linux, so the previous ChDir.
   if prjpath.dirExists then
     fCompilProc.CurrentDirectory := prjpath;
diff --git a/src/ce_interfaces.pas b/src/ce_interfaces.pas
index 5377effd..d81bc1fe 100644
--- a/src/ce_interfaces.pas
+++ b/src/ce_interfaces.pas
@@ -363,6 +363,11 @@ type
     procedure getCompilerImports(value: DCompiler; paths: TStrings);
   end;
 
+  // Returns a string indicating the which compiler will be used.
+  function usingCompilerInfo(value: DCompiler): string;
+
+type
+
   (**
    * Single service that provides access to the main menu.
    *)
@@ -591,4 +596,13 @@ begin
 end;
 {$ENDREGION}
 
+function usingCompilerInfo(value: DCompiler): string;
+const
+  c2id: array[DCompiler] of string = ('dmd', 'gdc', 'gdmd', 'ldc', 'ldmd',
+    'user1', 'user2');
+begin
+  result := format('using %s (%s)',
+    [getCompilerSelector.getCompilerPath(value), c2id[value]]);
+end;
+
 end.
diff --git a/src/ce_main.pas b/src/ce_main.pas
index 241507ed..a1ebef99 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -2890,6 +2890,7 @@ begin
   dmdproc := TCEProcess.Create(nil);
   try
     fMsgs.message('compiling ' + shortenPath(fDoc.fileName, 25), fDoc, amcEdit, amkInf);
+    fMsgs.message(usingCompilerInfo(fRunnablesOptions.compiler), fDoc, amcEdit, amkInf);
     if fDoc.fileName.fileExists then
       fDoc.save
     else