diff --git a/lcl/interfaces/carbon/carbonwsmenus.pp b/lcl/interfaces/carbon/carbonwsmenus.pp
index 80fbaf99a3..ed5db0cad3 100644
--- a/lcl/interfaces/carbon/carbonwsmenus.pp
+++ b/lcl/interfaces/carbon/carbonwsmenus.pp
@@ -199,7 +199,7 @@ end;
 {------------------------------------------------------------------------------
   Method:  TCarbonWSMenuItem.SetShortCut
   Params:  AMenuItem   - LCL menu item
-           OldShortCut - Old shortcut
+           ShortCutK1 and ShortCutK2 - New shortcut key1 and key2
 
   Sets the shortcut of menu item in Carbon interface
  ------------------------------------------------------------------------------}
diff --git a/lcl/interfaces/cocoa/cocoawsmenus.pas b/lcl/interfaces/cocoa/cocoawsmenus.pas
index 9024e2d5e3..5636337431 100644
--- a/lcl/interfaces/cocoa/cocoawsmenus.pas
+++ b/lcl/interfaces/cocoa/cocoawsmenus.pas
@@ -216,7 +216,7 @@ end;
 {------------------------------------------------------------------------------
   Method:  TCocoaWSMenuItem.SetShortCut
   Params:  AMenuItem   - LCL menu item
-           OldShortCut - Old shortcut
+           ShortCutK1 and ShortCutK2 - New shortcut key1 and key2
 
   Sets the shortcut of menu item in Cocoa interface
  ------------------------------------------------------------------------------}
diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index 5c3096d5f2..f28d855824 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -6051,9 +6051,6 @@ begin
 end;
 
 {------------------------------------------------------------------------------
-  procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem;
-    MenuItemWidget: PGtkWidget; NewShortCut: TShortCut);
-
   Update the inner widgets of a menuitem widget.
  ------------------------------------------------------------------------------}
 procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem; MenuItemWidget: PGtkWidget;
diff --git a/lcl/interfaces/gtk/gtkwsmenus.pp b/lcl/interfaces/gtk/gtkwsmenus.pp
index c8e1b0fbc4..791a583dce 100644
--- a/lcl/interfaces/gtk/gtkwsmenus.pp
+++ b/lcl/interfaces/gtk/gtkwsmenus.pp
@@ -237,7 +237,6 @@ class procedure TGtkWSMenuItem.SetShortCut(const AMenuItem: TMenuItem;
 begin
   if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then
     Exit;
-  //DebugLn(['TGtkWSMenuItem.SetShortCut ',dbgsName(AMenuItem),' ',ShortCutToText(NewShortCut)]);
   UpdateInnerMenuItem(AMenuItem, PGTKWidget(AMenuItem.Handle), ShortCutK1, ShortCutK2);
 end;
 
diff --git a/lcl/interfaces/gtk2/gtk2proc.inc b/lcl/interfaces/gtk2/gtk2proc.inc
index 2c56f96e6b..27288ff309 100644
--- a/lcl/interfaces/gtk2/gtk2proc.inc
+++ b/lcl/interfaces/gtk2/gtk2proc.inc
@@ -5718,9 +5718,6 @@ begin
 end;
 
 {------------------------------------------------------------------------------
-  procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem;
-    MenuItemWidget: PGtkWidget; NewShortCut: TShortCut);
-
   Update the inner widgets of a menuitem widget.
  ------------------------------------------------------------------------------}
 procedure UpdateInnerMenuItem(LCLMenuItem: TMenuItem; MenuItemWidget: PGtkWidget;
@@ -5755,7 +5752,6 @@ var
     Shift, Shift2: TShiftState;
     s: String;
   begin
-    //DebugLn(['UpdateShortCutLabel ',dbgsName(LCLMenuItem),' ',ShortCutToText(NewShortCut)]);
     ShortCutToKey(NewShortCut, Key, Shift);
     ShortCutToKey(ShortCutKey2, Key2, Shift2);