diff --git a/src/libraries/gnugettext/gnugettext.pas b/src/libraries/gnugettext/gnugettext.pas
index d4cb39a33..6883bf598 100644
--- a/src/libraries/gnugettext/gnugettext.pas
+++ b/src/libraries/gnugettext/gnugettext.pas
@@ -1,4 +1,4 @@
-{*------------------------------------------------------------------------------
+{*------------------------------------------------------------------------------
   GNU gettext translation system for Delphi, Kylix, C++ Builder and others.
   All parts of the translation system are kept in this unit.
 
@@ -3589,8 +3589,8 @@ procedure TTP_Retranslator.Execute;
   comp:TGnuGettextComponentMarker;
   ppi:PPropInfo;
   //
-  oInstance: tobject;
-  PropName: string;
+ // oInstance: tobject;
+ // PropName: string;
 begin
   for i:=0 to list.Count-1 do begin
     item:=TObject(list.items[i]) as TTP_RetranslatorItem;