diff --git a/ide/codeexplorer.pas b/ide/codeexplorer.pas
index 2096262a14..1d816eaf87 100644
--- a/ide/codeexplorer.pas
+++ b/ide/codeexplorer.pas
@@ -1946,6 +1946,7 @@ begin
   s:=lisMenuViewCodeExplorer;
   if (CodeExplorerOptions.Refresh=cerManual) and (FCodeFilename<>'') then
     s+=' - ' + ExtractFileName(FCodeFilename);
+  Caption:=s;
 end;
 
 function TCodeExplorerView.OnExpandedStateGetNodeText(Node: TTreeNode): string;