diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index de59772..6a83aed 100644
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@@ -171,7 +171,8 @@
 	!select
 
 @<select-to> ( addr* -- )
-	clamp-selection .selection/b STZ2
+	clamp-selection DUP2 .selection/b LDZ2 NEQ2 ?{ POP2 JMP2r }
+	.selection/b STZ2
 	!select
 
 @<select-word> ( addr* -- )