Index: src/fmain.lfm
===================================================================
--- src/fmain.lfm	(revision 5288)
+++ src/fmain.lfm	(working copy)
@@ -3133,6 +3133,7 @@
     end
     object miRenameTab: TMenuItem
       Action = actRenameTab
+      OnClick = mnuTabMenuClick
     end
     object miLine14: TMenuItem
       Caption = '-'
Index: src/fmain.pas
===================================================================
--- src/fmain.pas	(revision 5288)
+++ src/fmain.pas	(working copy)
@@ -1920,6 +1920,8 @@
 
   if MenuItem = miCloseTab then
     Commands.DoCloseTab(NoteBook, pmTabMenu.Tag)
+  else if MenuItem = miRenameTab then
+    Commands.DoRenameTab(NoteBook.Page[pmTabMenu.Tag])
   else if MenuItem = miTabOptionNormal then
     NoteBook.Page[pmTabMenu.Tag].LockState := tlsNormal
   else if MenuItem = miTabOptionPathLocked then
Index: src/umaincommands.pas
===================================================================
--- src/umaincommands.pas	(revision 5288)
+++ src/umaincommands.pas	(working copy)
@@ -64,6 +64,7 @@
    procedure DoCloseTab(Notebook: TFileViewNotebook; PageIndex: Integer);
    procedure DoCopySelectedFileNamesToClipboard(FileView: TFileView; FullNames: Boolean);
    procedure DoNewTab(Notebook: TFileViewNotebook);
+   procedure DoRenameTab(Page: TFileViewPage);
    procedure DoContextMenu(Panel: TFileView; X, Y: Integer; Background: Boolean);
    procedure DoTransferPath(SourcePage: TFileViewPage; TargetPage: TFileViewPage; FromActivePanel: Boolean);
    procedure DoSortByFunctions(View: TFileView; FileFunctions: TFileFunctions);
@@ -450,6 +451,15 @@
   NewPage.MakeActive;
 end;
 
+procedure TMainCommands.DoRenameTab(Page: TFileViewPage);
+var
+  sCaption: UTF8String;
+begin
+  sCaption := Page.CurrentTitle;
+  if InputQuery(rsMsgTabRenameCaption, rsMsgTabRenamePrompt, sCaption) then
+    Page.PermanentTitle := sCaption;
+end;
+
 procedure TMainCommands.DoOpenVirtualFileSystemList(Panel: TFileView);
 var
   FileSource: IFileSource;
@@ -1045,17 +1055,8 @@
 end;
 
 procedure TMainCommands.cm_RenameTab(const Params: array of string);
-var
-  sCaption: UTF8String;
-  Page: TFileViewPage;
 begin
-  with frmMain do
-  begin
-    Page := ActiveNotebook.ActivePage;
-    sCaption:= Page.CurrentTitle;
-    if InputQuery(rsMsgTabRenameCaption, rsMsgTabRenamePrompt, sCaption) then
-      Page.PermanentTitle := sCaption;
-  end;
+  DoRenameTab(frmMain.ActiveNotebook.ActivePage);
 end;
 
 procedure TMainCommands.cm_CloseTab(const Params: array of string);