diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 075d8cb96..77bfc3edd 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -6410,6 +6410,8 @@ SUB DebugMode
     noFocusMessage = -1
 
     DO 'main loop
+        IF _EXIT THEN ideexit = 1: GOTO requestQuit
+
         bkpidecy = idecy
         WHILE _MOUSEINPUT: idecy = idecy + _MOUSEWHEEL * 3: WEND