diff --git a/designer/designermenu.pp b/designer/designermenu.pp
index 00bbbc8ac0..5abb2aaafc 100644
--- a/designer/designermenu.pp
+++ b/designer/designermenu.pp
@@ -1991,6 +1991,8 @@ begin
       DMenuItem.NextItem:=TempMI;
       if (DMenuItem.ParentMenu <> nil) then
         DMenuItem.ParentMenu.SubMenu:=DMenuItem;
+      if (TempMI.NextItem <> nil) then
+        TempMI.NextItem.PrevItem:=TempMI;
       if (DMenuItem.PrevItem <> nil) then
         DMenuItem.PrevItem.NextItem:=DMenuItem;
       Result:=1;