1 files changed, 2 insertions, 1 deletions
diff --git a/ide/undo.ml b/ide/undo.ml
index 1b74926cb1..d172ec605c 100644
--- a/ide/undo.ml
+++ b/ide/undo.ml
@@ -41,7 +41,8 @@ object(self)
 
     end
 
-  method clear_undo = Stack.clear history
+  method clear_undo = Stack.clear history; Stack.clear nredo; Queue.clear redo
+
   method undo = if !undo_lock then begin
     undo_lock := false;
     prerr_endline "UNDO";