diff --git a/programs/develop/heed/trunk/heed.asm b/programs/develop/heed/trunk/heed.asm
index 8c3c30f06..8c0fe8f45 100644
--- a/programs/develop/heed/trunk/heed.asm
+++ b/programs/develop/heed/trunk/heed.asm
@@ -2699,8 +2699,10 @@ Ctrl_END:
 	jmp	red
 ;--------------------------------------------------------------------
 ESC:
-	btr	[flags],8
-	jmp	red
+	bt  [flags], 8
+	jnc close_prog
+	btr [flags], 8
+	jmp red
 ;--------------------------------------------------------------------
 copy_to_buf:
 	bt	[flags],8