diff --git a/debugger/pseudoterminaldlg.pp b/debugger/pseudoterminaldlg.pp
index 66e5e2e208..98adebcf5e 100644
--- a/debugger/pseudoterminaldlg.pp
+++ b/debugger/pseudoterminaldlg.pp
@@ -23,6 +23,7 @@ type
   public
     { public declarations }
     procedure AddOutput(const AText: String);
+    procedure Clear;
   end;
 
 var
@@ -53,6 +54,11 @@ begin
   Memo1.SelStart := length(Memo1.Text);
 end;
 
+procedure TPseudoConsoleDlg.Clear;
+begin
+  Memo1.Text := '';
+end;
+
 {$R *.lfm}
 
 
diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index 6469e662a8..9b1af6aa09 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -895,6 +895,10 @@ begin
         then TAssemblerDlg(FDialogs[ddtAssembler]).SetLocation(nil, 0);
       end;
     end;
+    dsInit: begin
+      if FDialogs[ddtPseudoTerminal] <> nil then
+        TPseudoConsoleDlg(FDialogs[ddtPseudoTerminal]).Clear;
+    end;
   end;
 end;