diff --git a/ide/extractprocdlg.pas b/ide/extractprocdlg.pas
index 535924811b..bf422a230b 100644
--- a/ide/extractprocdlg.pas
+++ b/ide/extractprocdlg.pas
@@ -282,8 +282,8 @@ begin
     end else begin
       TypeRadiogroup.Columns:=1;
     end;
-    Add(lisProcedure);
     Add(lisProcedureWithInterface);
+    Add(lisProcedure);
     if SubProcPossible then begin
       Add(lisSubProcedure);
       if SubProcSameLvlPossible then
diff --git a/ide/main.pp b/ide/main.pp
index 5c5308f6cf..f6582f4dd8 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -16898,7 +16898,7 @@ var
 begin
   ADesigner:=TDesigner(Sender);
   GetDesignerUnit(ADesigner,ASrcEdit,AnUnitInfo);
-  debugln('TMainIDE.OnDesignerViewLFM ',AnUnitInfo.Filename);
+  //debugln('TMainIDE.OnDesignerViewLFM ',AnUnitInfo.Filename);
   OnDesignerCloseQuery(Sender);
   if AnUnitInfo.OpenEditorInfoCount > 0 then
     EditorInfo := AnUnitInfo.OpenEditorInfo[0]