diff --git a/src/ce_common.pas b/src/ce_common.pas
index 875a4333..25673788 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -60,6 +60,8 @@ type
   published
     property shortcut: TShortCut read fShortcut write fShortcut;
     property actionName: string read fActionName write fActionName;
+  public
+    procedure assign(aValue: TPersistent); override;
   end;
 
   (**
@@ -213,6 +215,19 @@ type
 
 implementation
 
+procedure TCEPersistentShortcut.assign(aValue: TPersistent);
+var
+  src: TCEPersistentShortcut;
+begin
+  if aValue is TCEPersistentShortcut then
+  begin
+    src := TCEPersistentShortcut(Avalue);
+    fActionName := src.fActionName;
+    fShortcut := src.fShortcut;
+  end
+  else inherited;
+end;
+
 {$IFDEF LINUX}
 constructor TCheckedAsyncProcess.Create(aOwner: TComponent);
 begin