diff --git a/lcl/lcltranslator.pas b/lcl/lcltranslator.pas
index 9602e7cf64..730cd41cda 100644
--- a/lcl/lcltranslator.pas
+++ b/lcl/lcltranslator.pas
@@ -307,7 +307,7 @@ begin
       Result := Instance.ClassName + '.' + PropInfo^.Name;
   end else if (Sender is TUpdateTranslator) then
     Result := TUpdateTranslator(Sender).FStackPath + '.' + PropInfo^.Name;
-  Result := UpperCase(Result);
+  Result := LowerCase(Result); // GetText requires same case as in .po file, which is lowercase
 end;
 
 var