diff --git a/ide/basedebugmanager.pas b/ide/basedebugmanager.pas
index 845a37d536..68f40d6791 100644
--- a/ide/basedebugmanager.pas
+++ b/ide/basedebugmanager.pas
@@ -200,7 +200,7 @@ type
 
     // Dialog routines
     procedure CreateDebugDialog(Sender: TObject; aFormName: string;
-                          var AForm: TCustomForm; DoDisableAutoSizing: boolean); virtual;
+                          var AForm: TCustomForm; DoDisableAutoSizing: boolean); virtual; abstract;
     procedure ViewDebugDialog(const ADialogType: TDebugDialogType;
                               BringToFront: Boolean = True; Show: Boolean = true;
                               DoDisableAutoSizing: boolean = false); virtual; abstract;
@@ -239,14 +239,6 @@ var
 
 implementation
 
-{ TBaseDebugManager }
-
-procedure TBaseDebugManager.CreateDebugDialog(Sender: TObject; aFormName: string;
-  var AForm: TCustomForm; DoDisableAutoSizing: boolean);
-begin
-  //
-end;
-
 { TDebuggerOptions }
 
 class function TDebuggerOptions.GetGroupCaption: string;
diff --git a/ide/editormacrolistviewer.pas b/ide/editormacrolistviewer.pas
index b88c01c967..05296389d0 100644
--- a/ide/editormacrolistviewer.pas
+++ b/ide/editormacrolistviewer.pas
@@ -845,6 +845,7 @@ begin
   if i = 1 then exit(AddError('Expected Command, but found "'+UTF8Copy(FText,1,1)+'"'));
 
   s := Copy(FText, 1, i-1);
+  j:=0;
   if not IdentToEditorCommand(s, j) then exit(AddError('Unknown Command "'+s+'"'));
   FEventCommand := j;
   FEventName := s;