diff --git a/gui/notepad/notepad.tal b/gui/notepad/notepad.tal
index b08fbb6..c1bc320 100644
--- a/gui/notepad/notepad.tal
+++ b/gui/notepad/notepad.tal
@@ -180,14 +180,13 @@ BRK
 
 @erase ( -- )
 
-	.selection/length LDZ2 #0000 EQU2 ?&no-block
+	.selection/length LDZ2 #0001 LTH2 ?&no-block
 		erase-selection
 		!reset-selection
 		&no-block
 
 	.selection/from LDZ2 ;mem NEQ2 [ JMP JMP2r ]
 
-	
 	.selection/from LDZ2 #0001 SUB2
 		DUP2 cut-char
 
@@ -320,6 +319,7 @@ JMP2r
 @select-to ( addr* -- )
 
 	.selection/to STZ2
+	.selection/to LDZ2 .selection/from LDZ2 SUB2 .selection/length STZ2
 	redraw
 
 JMP2r