diff --git a/ideintf/fieldslist.pas b/ideintf/fieldslist.pas
index daed3a4ac2..6f77822d9f 100644
--- a/ideintf/fieldslist.pas
+++ b/ideintf/fieldslist.pas
@@ -65,7 +65,6 @@ implementation
 procedure TFieldsListFrm.BitBtnOkClick(Sender: TObject);
 var
   i: integer;
-  NewName:string;
   NewField: TField;
   fModified: boolean;
   PreActive: boolean;
diff --git a/ideintf/graphpropedits.pas b/ideintf/graphpropedits.pas
index ececc149bf..7ba7098365 100644
--- a/ideintf/graphpropedits.pas
+++ b/ideintf/graphpropedits.pas
@@ -192,6 +192,7 @@ begin
       begin
         if TheDialog.Modified and FileExists(TheDialog.FileName) then
         begin
+          DebugLn(['TGraphicPropertyEditor.Edit ',dbgsname(GetTypeData(GetPropType)^.ClassType)]);
           {$Warnings off}
           // TGraphic itself is an abstract class, so the compiler will warn
           if AGraphic = nil then begin