diff --git a/gui/notepad/notepad.tal b/gui/notepad/notepad.tal
index 1b4904a..52d242a 100644
--- a/gui/notepad/notepad.tal
+++ b/gui/notepad/notepad.tal
@@ -238,7 +238,6 @@ BRK
 @select-from ( addr* -- )
 
 	clamp-selection
-
 	DUP2 .selection/a STZ2
 		.selection/b STZ2
 
@@ -323,14 +322,14 @@ JMP2r
 
 JMP2r
 
-@is-selected ( addr* -- f )
+@is-selected ( addr* -- addr* f )
 
 	DUP2 get-from LTH2 ?&false
 	DUP2 get-to #0001 SUB2 GTH2 ?&false
-	POP2 #01
+	#01
 
 JMP2r
-	&false POP2 #00 JMP2r
+	&false #00 JMP2r
 
 (
 @|file )
@@ -339,7 +338,7 @@ JMP2r
 
 	;notepad-txt file-size #0000 EQU2 ?file-new
 
-@file-load ( -- )
+	( load file )
 
 	;notepad-txt .File/name DEO2
 	#8000 .File/length DEO2
@@ -603,7 +602,7 @@ JMP2r
 	&while
 		( draw char )
 		LDAk char-addr .Screen/addr DEO2
-		DUP2 is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO
+		is-selected STH #0701 STHr [ JMP SWP POP ] .Screen/sprite DEOk DEO
 		.Screen/x DEI2k #0010 SUB2 ROT DEO2
 		( draw selector )
 		get-from get-to NEQ2 ?&block