diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 96e0f1bb4..ab67b25fb 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -6725,6 +6725,11 @@ DO 'main loop
         EXIT FUNCTION
     END IF
 
+    IF K$ = CHR$(27) THEN
+        ideclearhistory$ = "N"
+        EXIT FUNCTION
+    END IF
+
     'end of custom controls
     mousedown = 0
     mouseup = 0