diff --git a/lcl/translations.pas b/lcl/translations.pas
index af776c31d6..f037849a7e 100644
--- a/lcl/translations.pas
+++ b/lcl/translations.pas
@@ -638,6 +638,9 @@ var
         // set context of new duplicate
         if Msg[mctx]='' then
           Msg[mctx] := Identifier;
+        // copy flags to new duplicate
+        if Flags='' then
+          Flags := Item.Flags;
         // if old duplicate was translated and new one is not,
         // provide an initial translation and set a flag to mark it fuzzy
         if (Msg[mstr]='') and (Item.Translation<>'') then begin