diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index 00de7d2..1ffa5fe 100644
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@@ -182,10 +182,11 @@
 
 @delete ( -- )
 	#00 ;on-frame/f STA
-	get-eof get-from INC2 NEQ2 ?{ JMP2r }
-	.selection/length LDZ2 #0000 EQU2 ?{ erase-selection !<select-reset> }
-	get-from cut-char <redraw>
-	!file-save
+	.selection/length LDZ2 ORA ?{
+		get-from INC2k get-eof NEQ2 ?{ POP2 JMP2r }
+		cut-char <redraw>
+		!file-save }
+	erase-selection !<select-reset>
 
 @get-eof ( -- addr* )
 	get-page !scap/